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INITLN — Initialize a line 

NEwUSR — Start a new time-sharing job 

STOP — Stop program execution & enter KMON 

CLENUP — Do general cleanup uihen a job stops 

CANCPL — Cancel all pending completion routines 

LOGOFF — Log off a job 

TSXTX — Trap Handler 

FPTRPX — Floating point trap routine 

CLKRUN — Clock processing routine 

CLKDAT — update time of day and date 

CLKJOB — check time slice job status 

CLKOIS — 0. 1 second clock processing 

CLKIOH — See if use need to cancel I/O hold timers 

CHKPRT — See if we need to print Professional screen 

WAKEUP — 0. 5 second processing for sleeping users 

CKTWAT — Check on jobs doing . TWAIT waits 

CKMRKT — check mark-time requests 

CLKSCR — Execute completed system mark-time requests 

CLKPM — accumulate performance monitoring data 

CKSCHD — Check jobs and schedule 

CLKABD — Clock processing for autobaud logic 

TLCHK — Check Dial-up line status 

CLKPHN — Do timer driven checks of dial-up lines 

DLGDSS — Get data set status for DLll line 

DLSDSS — Set data set status for DLll line 

DLSBRK — Control break transmission for a DLll line 

DLSSPD — Set transmission speed for DLll line 

DZGDSS — Get data set status for DZll line 

DZSDSS — Set data set status for a DZll line 

DZSBRK — Control break transmission for a DZll line 

DZSSPD — Set transmission speed for a DZll line 

DHGDSS — Get data set status for a DHll line 

DHSDSS — Set data set status for a DHll line 

DHSSPD — Set transmit/receive speed for DHll line 

DHSBRK — Control break transmission for a DHll line 

VHGDSS — Get data set status for a DHVll line 

VHSDSS — Set data set status for a DHVll line 

VHSSPD — Set transmit/receive speed for a DHVll line 

VHSBRK — Control break transmission for a DHVll line 

DLCLOK — Timer driven routine for DLll lines 

DZCLOK — Timer driven routine for DZll lines 

DHGLO.K — Timer driven routine for DHll lines 

SYSDIE — Fatal system halt 

EXCINI — Final system initialization 

INISPD — Initialize time-sharing line speeds 

INSINI — Initialize installed program table 
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TSX-Plus Executive Routines 



^ 



TSEXC2 is a TSX-Plus virtual system overlay containing misc. routines. 

Copyright <c> 1980,1981*1982,1983,1984,1985,1906,1987,1980. 
S?<H Computer Systems, Inc. 
Nashville, Tennessee USA 

All rights reserved 



Global definitions 

. GLOBL LOGOFF, TRPCOM, TSXTX, FPTRPX, EXC1NI,NSIP 

. GLOBL SYSDIE, ABORT, STOP, NEWUSR, TRPBPT 

. GLOBL INITLN, CLKRUN, DZSSPD, DLSBRK, DZSBRK 

GLOBL DLGDSS, DLSDSS, DZGDSS, DZSDSS. DHGDSS, DHSDSS 

. GLOBL DLCLOK, DZCLOK, VHGDSS, VHSDSS, DLSSPD 

. GLOBL DHSSPD, VHSSPD. DHSBRK, VHSBRK, DHCLOK, VHCLOK 

Global references 

. GLOBL R*SWPC, C. NUMQ, VUSPHN, *RDSAV, DOTRMP. *GEMAR, R*CFST, CFPSAV 

. GLOBL LSWll, «PWKEY, AF*NPW, LNSPAC, SUCF2, IB«SF2, IB*IJ, SPIJ 

. GLOBL LTTCR, EMTBLK, AF*DUP, AF*IND, AF*UCL, AF*SET, LCXTBL 

. GLOBL CINFLG, DIEARG, DIEMSG, DIEPC, DIESP. VSYDMP, DODUMP, SYSHLl 

. GLOBL VPAR5, TRPAR5, VDMKTP, DMPOVL, DMPHND, DMPTXT, PLSINI 

. GLOBL VSWPSL, SWP JOB, SWPPOS, SLTSI Z, CSHDEV, CSHDVN 

GLOBL *DETCH, LSW, *DILUP, LOTSPC, LOTSIZ, CDSSPD, *DHCDO 

. GLOBL LSTPL, PVON, LNPRIM, LlNSWT, LSECPT, MAXSEC, NUMON, NEDCLO 

. GLOBL PO*SPV, PO*NAM, PO«SYS, PO*BYP, LPARNT, CL«EPS 

. GLOBL PO*DBO, SYNAME, PO*MEM, PO*LOK, I I*PRV, PO*NFR, PO*NFW 

. GLOBL INSTBL, INSTBN, I I«*SZ, II*NAM, I I*FLO, I I*NPV, AF*PLK 

. GLOBL AF*SCA, AF*NOW, AF*HIE, AF*NOI, AF*IOP, AF*MEM, AF$BYA 

. GLOBL LNMAP, «DISCN, FORCEX, LBASE, LNBLKS, VH«LCR, CLTOTL 

. GLOBL LP*SPD, LP*7BT, LP*PAR, LP*ODD, SYSXIT, VDBFLG, CXBOWN 

. GLOBL DZ*LEN, DZ*SBT, DZ*7BT, DZ«PAR, DZ*ODD, SP*LNK 

. GLOBL HF*LEN, HF«8BT, HF*7BT, HF*PAR, HF*ODD, WINREL 

. GLOBL VF«LEN, VF*SBT, VF*7BT, VF*PAR, VF«EVN, KMONCE, VMNUAO 

. GLOBL *AUTO, S9600, *NABRS, SETSPD, LABTIM, PIDPTR, *CTRLO, CSHFIN 

. GLOBL MXTYPE, CDX*DZ, INTMXl, VF*RIE, VF*TIE, VH*CSR, MH«SCR, FP*IOF 

. GLOBL HF*TSB, MH*LPR, MH*BRK, VF*SC, VH*LPR, VF*BC, *NOUCR, JOBCCB 

. GLOBL FRKINI , FQ**SZ, NUMFRK, FRKGEN, FREFRK, FQ«LNK, SCHED, NPCCB 

. GLOBL LMEMIN, DEQ, LSW2, LSW4, LSW5, *1STLG, LSW6, «CARUP, TOTON, PMUSER 

. GLOBL PMRUN, SS, CORUSR, EXEC, JCDB, LSW7, CANIOT, SI 50, LIOHLD, NSCP 

. GLOBL UMODE, INTLVL, UTRPAD, CHKABT, UPMODE, UFPTRP, CW«FPU, SCPFHD 

. GLOBL CONFIG, TRRDY, CTTSR, CTTBR, *DBGMD, *NOLF, LCXPAR, *RNMLK 

. GLOBL FREIOQ, NUMIOQ, lOQSIZ, Q. LINK, USRINI, LSW9, *SUCF, SYPNCR 

. GLOBL LSTMX, MXLNT, LSTPL, LMXNUM, MXLNT, CDCLOK, LCDTYP, LINSI Z 

. GLOBL SNMSHD, NMSNMB, SB*«SZ, SB*LNK, CLKINT, *CARMN, LINSPC, SP**SZ 
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GLOBL 4START, ILSW2, *DEAD, *PHONE, FSTDL, LSTDL, LSUCF, *TDEAD 

GLOBL INITFL. L3W3, F3W, INTPR I - SYSHLT. CHKUSPi MSGABT, CFACFL, *CFABT 

GLOBL « INKMN, ABRTAD> ABRTCD. STOP, LMXLN, OVRHC, MAPUSR, MONABT 

GLOBL *INIT, LQUAN, LJSW, LINBUF, LINNXT. LSTACT, LINPNT, LINCNT 

GLOBL LOTBUF, LOTNXT, LOTPNT, LACTIV, *LOFCF, CSHALC, NUMCCB. CCBHD 

GLOBL LCOL* LAFSI Z, LPROJ. LPROG, LSCCA, LBRKCQ. LBRKCH, LCPUHI 

GLOBL LCPULO, LCONTM, L INCUR, KPAR6, CURRDB, RPAR> RPDR, CXTRMN 

GLOBL VECBAS, MVWDS, ITRMTP, LTRMTP, MSGINI> VMAXMC, S*HICP, KILJOB 

GLOBL *CTRLSi *VNOTT, SPLINI, NSPLDV, LOKINI, VMXSF, LITIME> QNSPND 

GLOBL SETMAP, DFJMEM, MAXMEM, EMTCADi EMTRAD, RCBBAS, RCBEND. PLSXIT 

GLOBL SPCPS, JSTKND, JSTK, EMTLEV, UERSEV> *DOOFF, $NOIN, ERRLOC 

GLOBL VSWPFL, KMNTOP, KMNBAS> SUTOP, UHIMEM, JSWLOC, R*CH17 

GLOBL KMNCHN. CSIARE, KMNSTKM, LQUAN, KMNSTR, *CTRLC, LSLEPH, LSLEPL 

GLOBL LSPND, $IDMAP, *MLOCK, LRDTIM, lOHALT, lOSTOP, RTSTOP 

GLOBL USRJOB, FREUSR, FRESPD, CANMKT, QFREE, LCMPL, CQtLNK 

GLOBL CLSCDB. HF*TIE> HF*RIE, DLSTRT, DZSTRT> CQ*CP 

GLOBL LNSBLK, RCBBAS, RCBEND, FREMEM, VPLAS, TRNSTR, *HARD 

GLOBL CXTPAG, KMNPGS, LIOCNT, VPRIDF, LBSPRI, LPRI, LSTHL 

GLOBL LHIPCT, QHIPRI, INVEC, INRECV, RSR, STPFLG, *VIRJB 

GLOBL RING, TRMRDY, MXRING, MXDTR, CARDET 

GLOBL MXCAR, RCVDON, *IITIM, RDINT, RDONE, MXCSR, RIE, NEDCDO, NEDCDI 

GLOBL «XCHAR, LOGCHR, LOGCR, LOGFLG, LF*IN, FPUUSE, *MAPOK, R*MFMV 

GLOBL SPSTAT. SS*RUN, SS*PRT, LPRGl, LPRG2, *NOABT 

GLOBL CURVC. SYSDAT, LSTATE, LSTSL, SWPCOT, DOSCHD, S«INWT, «FPUEX 

GLOBL LRTCHR, MRKTHD, CQ*LNK, S*IOWT, PMBASE, PMTOP, PMNBPC, VPAR6 

GLOBL PMPAR, *SOTFN, S*OTFN, *DEFER, *DODFR, *GCECO, S*OTLO, NEDSOT 

GLOBL CLKRUN, TIKCNT.- CLKCNT, LCPULO, LCPUHI, TKIVAL, CQ*JOB 

GLOBL TKICNT, TK5CNT, SYTIML, SYTIMH, DATIML, DATIMH, JM*LNK 

GLOBL *DHBF1. *DHBF2, LSWIO, VF*RIE, HF*RIE 

GLOBL VONTM, VOFFTM, VTMOUT, VTMIN, VTMLOC, LOFFTM, LCDTIM 

GLOBL VMXWIN, WININI, RDAR, RDDR 

GLOBL LMINQ, MINCTR, MINTIM, DTLX, UIOCNT, STRACT, «DEBUG 

GLOBL VPRIHI, VPRILO, VQUANO, VQUAN3, *SGQO, *SGQ3, LCLUNT 

GLOBL TMTOTL, TMTOTH, TMIOL, TMIOH, INBSY, OUTBSY, DBGTRP 

GLOBL TMSWPL, TMSWPH, TMUSRL, TMUSRH, TMIOWL, TMIOWH 

GLOBL TMSWTL, TMSWTH, TMIDLL, TMIDLH, SYSHLT, GETMEM, EMTCAS 

GLOBL S«*HIP, S**RT, S*TMWT, SfTWFN, CQ*PRI, *OITIM 

GLOBL VQUANl , VQUNl A, VQUAN2, QCPU, MBFFLG, UREGO, S*WSMB 

GLOBL LSLEPL, LSLEPH, ENQTL, QCOMPL, VQUNIB, MONFQH, VMXMON, JM**SZ 

GLOBL CQ*HOT, CQ«LOT, CQ*LNK, CQIiRNS, CSHINI , FRKPR I 

GLOBL PF«SYS, PF*IOW, PF*OVF, CLKPS, CLKPC, CURCP, SHRRCB, SHRRCN 

GLOBL PMFLGS, UMODE, LEMTPC, *INCOR, EM*DTL, CP*STD 

GLOBL LITIME, VINTIO, VQUNl C, QUNSIG, MS*BRK, TRBRK 

GLOBL LSW8, *SGQ1, «S0Q1A, fSGQlB, *SGQ1C, *SGQ2 

GLOBL CC**SZ, CC*LNK, CXTBAS, CXTWDS, PCCCR2, PRDFLG 

GLOBL CDGDSS, CDSDSS, MS*DTR, MS«CAR, MS«RNG, PROODC, PLSOFF 

GLOBL CDX*VH, VH*CSR, VH*LSR, VH*LCR, *DBGBK 

GLOBL VF*RNG, VF*DCD, VF*DTR, D. FLAG, D*RUN 

GLOBL MF*LIN, DM*CSR, DM*LSR, MF*RNG, MF*CAR, MF*DTR 

GLOBL FP«CK 1 , FRKGET, FORKQ, FQSPR I , FQ*RTN 

GLOBL CDIRTN, CDIFLG, FP*CDI, CDORTN, CDOFLG, FP*CDD 

GLOBL TSR, MXBRK, LMXPRM, MXLPR, MXSBRK, FRECXT 

GLOBL OVRADD, 0. ADR, 0. PAR, NUMDEV, HANPAR, PNAME 

GLOBL *UDSPC, SR3FLG, USDSPC, SR3MMR 



f 
I 
I 



I 
( 
t 
I 

f 
I 

i 

( 



Symbolic equates 



« 

i 



TSEXC: 



Misc. TSX-Plus Execu MACRO V05. 05 Wednesday 18-Jan-89 15:26 Page 1-2 



115 



c 



c 
I 
c 

t 



116 


000015 


117 


000012 


lie 


000007 



CR 
LF 
BELL 



15 
12 
7 



» CaTriage— return 
i Line-feed 
;Bell 
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Macro calls 

. MCALL . READW, . PURGE 



Macro definitions 

Macro to call a routine in another system overlay. 

. MACRO OCALL ENTADD 

.IF B, ENTADD 

.ERROR J OCALL without entry address 
. ENDC 

CALL OVRHC icall the low-core overlay handler 

. WORD ENTADD 

. ENDM OCALL 

Macro to disable interrupts 

. MACRO DISABL 
BIS #340, e#psw 
. ENDM DISABL 

Macro to enable interrrupts 

. MACRO ENABL 

BIC INTPRI,©#PSW 

. ENDM ENABL 

Macro to print an error message when a system crash occurs. 

Arguments: 
MSG = Name of error message to print. 
ARG = (Optional) argument value to display with error message. 

.MACRO DIE MSG>ARG 

MOV MSG. e#DIEMSG 

. IF NB, ARG 

MOV ARG, e#DIEARG 

. ENDC 

CALL @#SYSHLT 

. ENDM DIE 

* 

i Macro to define a system abort error message 

i 

. MACRO SATXT NAME, TEST 

. GLOBL EM* 'NAME 

EM* 'NAME = . - DIEBAS 

ASCIZ \ 'NAME '-'TEST'S 
. ENDM SATXT 
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6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



000002 
000056 
000106 
000146 
000172 
000217 
000250 
000336 
000366 
000435 
000476 
000522 
000602 
000635 
000665 
000731 
000755 
001033 



001056 
001120 
001136 
001137 
001155 
001173 
001205 
001223 



001252 
001274 



001312 



001322 

001336 
001340 
001342 
001344 
001346 
001350 



101 

000 
120 
123 
117 
104 
123 



012 
162 

101 
145 
166 
145 
120 



012 
147 



147 
145 
166 
040 



000001 
001000 



001 



037 

000000 

OOOOOOG 

177777 

063337 

063344 

073376 



000002 
002000 



002 



000004 
004000 



004 



034 



Fatal system abort error messages: 

.NLIST BEX 

<Demonstration system time limit reached> 

<No free FORK blocfes> 

<Jump occurred to location 0> 

<KMON read error> 

<Kernel mode trap> 

<Job lock mem failure> 

<Need to increase value of MIONWB sysgen parameter> 

<Memory parity eTror> 

<Ran out of free 1/0 queue element5> 

<No free swap command packet5> 

<Poujer-fail trap> 

<Trap in real-time interrupt service routine> 

<Job swap file overfloui> 

<Sii>ap file I/O error> 

<PLAS region swap file I/O error> 

<Job # at STOP> 

<:interrupt occurred at unexpected location> 

<Stack overflouj> 

Other related text strings. 



DIEBAS; 




SATXT 


DTL, 


SATXT 


FRK, 


SATXT 


JMO, 


SATXT 


KRE, 


SATXT 


KTP, 


SATXT 


LMF, 


SATXT 


MIO. 


SATXT 


MPR, 


SATXT 


NQE, 


SATXT 


NSP, 


SATXT 


PFT, 


SATXT 


RIT, 


SATXT 


SFO, 


SATXT 


SIE, 


SATXT 


SSE, 


SATXT 


SJN, 


SATXT 


UEI, 


SATXT 


SOF, 



TXFSE 

TXARG 

TXNUL 

TXPAR5: .ASCII 

TXSEG 

TXOID 

TXDEV 

SPTXT 



.ASCII <CR><:LF><LF><BELL>/?TSX-F-Fatal system error at /<200: 

.ASCII /Arg. value = /<200> 

. BYTE 

/PAR5 value = /<200> 

.ASCII /Seg. value = /<200> 

.ASCII /Overlay: /<200> 

.ASCII /Device name: /<200> 

.ASCII /SP at time of crash = /<200> 
. EVEN 



Line select bits for a DHl 1 mux. 

DHLBIT: .WORD 1 , 2, 4, 10, 20, 40, 100, 200> 400 

. WORD 1000, 2000, 4000, 10000, 20000, 40000, 100000 

Ljrig select bits for DZll .mux. 

MXLBIT: BYTE 1,2,4.10,20,40,100,200 

Number of days in each mojith 



037 MONDAY: 

FORK IT 
PROTIM 
TIKOIS 
R50PRD 
R50PRT 
R50SAV 



BYTE 
EVEN 
WORD 
WORD 
WORD 



31. , 28. , 31. , 30. , 31. , 30. , 31. , 31. , 30. , 31. , 30. , 31. 





PROODC 

-1 



jFlag to create fork process 

iCall PI driver after this many ticks 

i# pending 0. 1 second clock ticks 



/ rrsi.,/ 

RAD50 /PRT/ 
RAD50 /SAV/ 



Table to convert normal TSX-Plus speed codes into DHl 1 speed codes 



f < 
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5B 

59 001352 

60 

61 

62 

63 001372 

64 



OOl 



000 



002 003 DHSPCT: .BYTE 1,2,3,4,5,7,10,11,12,0,13,0.14,0,15,16 

Table to convert normal TSX-Plus speed codes into DHVll speed codes 

001 002 VHSPCT: .BYTE 0,1,2,3,4,5,6,7,10,11,12,0,13,14,15,16 

. EVEN 
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— Misc 


. TSX-Pl 


us ExecL 




1 
2 
3 










4 

5 
6 










7 
S 
9 

10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 


001412 


000000 






28 


001412 


016130 


000000 




29 


001416 


OOOOOOG 






30 


001420 


000000 






31 




000001 






32 


001422 


035164 


000000 




33 


001426 


OOOOOOC 






34 


001430 


000000 






35 




000002 






36 


001432 


042614 


000000 




37 


001436 


OOOOOOC 






38 


001440 


000000 






39 




000003 






40 


001442 


042640 


000000 




41 


001446 


OOOOOOC 






42 


001450 


000000 






43 




000004 






44 


001452 


045130 


000000 




45 


001456 


OOOOOOC 






46 


001460 


000000 






47 




000005 






48 


001462 


046537 


057760 




49 


001466 


OOOOOOC 






50 


001470 


000001 


OOOOOOC 




51 


001474 


000000 






52 




000006 






53 


001476 


062074 


012000 




54 


001502 


OOOOOOG 






55 


001504 


000000 






56 




000007 






57 


001506 


073634 


102700 
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Table of programs that have automatic stuitch assignment uhen they 

are started by TSKMON. The following flags may be specified following 



the program name words; 



AF*NOW = 
AF*HIE = 
AF*NOI = 
AF*IOP = 
AF*SCA = 
AF*MEM = 
AF*PLK = 
AF*DBG = 
AF«BYA = 
AF*TPO = 
AF«DUP = 
AF*IND = 
AF*UCL = 
AF«SET = 
AF*CCA = 
AF*NPW = 

Each program 
program name 



= Allow non-wait . TTYIN operation. 

= Run program in high-efficiency mode. 

•■ Run program in non-interactive mode. 

= Map user PAR 7 to I/O page (requires operator priv. ) 

■ Enable single character activation. 

■ Lock program in low memory. 

■ RUN/LOCK program 

■ RUN/DEBUG program 

• Bypass user ASSIGNS 

! Use transparent terminal output 

' Program is DUP 

! Program is IND 

■■ Program is TSXUCL 

■■ Program is SETUP 

■■ Suppress ctrl-C abort 

■ No windows during program 

entry must consist of two words containing the 6 character 
followed by a word with the flags. 



NSIP 
SRFPRG; 



NSIP 



NSIP 



NSIP 



NSIP 



NSIP 







No system installed programs yet 



NSIP 



NSIP 



. RAD50 /DUP / 
. WORD AF*DUP 
. WORD 

NSIP+1 
. RAD50 /IND / 
. WORD AF«NOW ! AF* I ND 
. WORD 

NSIP+1 
. RAD50 /KED / 
.WORD AF«SCA!AF*HIE!AF*NOW 
. WORD 

NSIP+1 
. RAD50 /KEX / 
.WORD AF*SCA!AF*HIE!AF*NOW 
. WORD 

NSIP+1 
. RAD50 /K52 / 
. WORD AF*SCA i AF*HIE ! AF*NOW 
. WORD 

NSIP+1 
. RAD50 /LOGON / 
. WORD AF*PLK ! AF*BYA 

. WORD +1 , PO*SPV ? P0*NAM ! PO«SYS .' PO*BYP 
. WORD 

NSIP+1 
- RAD50 /PATCH / 
. WORD AF*SCA 
. WORD 

= NSIP+1 /Count another system program 

. RAD50 /SETUP / 



Count another system program 



Count another system program 



; Count another system program 



i Count another system program 



I 
I 
f 

i 
i 
€ 

t 

i 
« 
i 
I 
I 
I 
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i 
I 
< 
I 

f 
I 
I 
f 
f 
I 
« 
I 
( 

i 
i 
i 
i 
i 
i 



58 


001512 


OOOOOOC 






. WORD 


AF*IOP!AF*SET 














59 


001514 


000000 






. WORD 

















60 




000010 




NSIP 


a: 


NSIP+1 




; Count 


another 


system 


program 




61 


001516 


075273 


051646 




. RAD50 


/SYSMON/ 














62 


001522 


000000 






. WORD 

















63 


001524 


000001 


OOOOOOG 




. WORD 


+ 1,P0«MEM 














64 


001530 


000000 






. WORD 

















65 




000011 




NSIP 


= 


NSIP+1 




i Count 


another 


system 


program 




66 


001532 


076713 


056700 




. RAD50 


/TECO / 














67 


001536 


OOOOOOC 






. WORD 


AF*SCA ! AF$NDW 














6S 


001540 


000000 






. WORD 

















69 




000012 




NSIP 


s 


NSIP+1 




; Count 


another 


system 


program 




70 


001542 


077721 


055176 




. RAD50 


/TRANSF/ 














71 


001546 


OOOOOOC 






. WORD 


AF*SCA!AF$NOI! 


! AF*N0W ! 


' AF*NPW 










72 


001550 


000000 






. WORD 

















73 




000013 




NSIP 


= 


NSIP+1 














74 


001552 


077771 


103150 




. RAD50 


/TSAUTH/ 














75 


001556 


OOOOOOG 






. WORD 


AF*BYA 














76 


001560 


000000 






. WORD 

















77 




000014 




NSIP 


= 


NSIP+1 




i Count 


another 


system 


program 




78 


001562 


100020 


101704 




. RAD50 


/TSXUCL/ 














79 


001566 


OOOOOOG 






. WORD 


AF*UCL 














80 


001570 


000000 






. WORD 

















81 




000015 




NSIP 


= 


NSIP+1 














82 


001572 


106243 


057710 




. RAD50 


/VTCOM / 














83 


001576 


OOOOOOC 






. WORD 


AF*SCA ! AF$NOW ! 


1 AF*MEM 












84 


001600 


000001 


OOOOOOG 




. WORD 


+ 1,P0*L0K 














85 


001604 


000000 






. WORD 

















86 




000016 




NSIP 


= 


NSIP+1 




; Count 


another 


system 


program 




87 


001606 






SRFEND: 








; End of special program flag 1 


ist 



t 
ff 
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C 
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TSEXC2 


— flisc 


. TSX-Pl 


us Execu 


INITLN - 


— Initialize a 


line 


i 
2 








3 








4 








5 








6 








7 








8 








9 








10 








11 








12 








13 








14 








15 








16 








17 








18 








19 








20 








21 








22 








23 


001606 


010246 




24 


001610 


010346 




25 


001612 


010003 




26 








27 








28 








29 


001614 


005761 


0000000 


30 


001620 


002176 




31 








32 








33 








34 


001622 


020127 


OOOOOOG 


35 


001626 


101016 




36 


001630 


105737 


OOOOOOG 


37 


001634 


001013 




38 


001636 


113700 


OOOOOOG 


39 


001642 


042700 


177400 


40 


001646 


012702 


000123 


41 


001652 


074200 




42 


001654 


001403 




43 


001656 


123700 


OOOOOOG 


44 


001662 


103155 




45 








46 








47 








48 


001664 


005061 


OOOOOOG 


49 


001670 


005061 


OOOOOOG 


50 


001674 


005061 


OOOOOOG 


51 


001700 


005061 


OOOOOOG 


52 








53 








54 








55 


001704 


013700 


OOOOOOG 


56 


001710 


006300 




57 


001712 


063700 


OOOOOOG 



Wednesday lS-Jan-89 15:26 Page 5 



SBTTL INITLN — Initialize a line 



INITLN is called to initiate <logon) a line. 

It initializes a number of line control tables and then places 

the line in a high-priority execution state. 

If the system is generated with job swapping turned off <SWAPFL=0> 

a check is made to see if there is sufficient free memory available 

for the job before it is initiated. If there is not enough free memory 

available* the job is not initiated. 

Inputs: 
Rl = Number of line to be initiated 

RO = Pointer to I/O queue element with name of secondary 
start-up command file for the job <0=none). 

Outputs: 
C-flag set if swapping is disabled and there is insufficient free 
memory space available to start job. 

The queue element with the secondary start-up command file name is 
freed if the job cannot be started. Otherwise it is freed after the 
job is initialized. 



INITLN: MOV 
MOV 
MOV 



r: 



<SP) 



R3, -<SP> 
RO, R3 



i Get pointer to Q element with CF name 



Never start a line that is being used as a GL unit 



TST LCLUNT(Rl) 
BGE 9* 



i Is this a CL line? 
i Br if yes 



See if we are constrained by max # jobs allowed to be on 



CMP 


R1,#LSTPL 


BHI 


4* 


TSTB 


KMONCE 


BNE 


4* 


MOVB 


VMNUAO, RO 


BIC 


#■^0377, RO 


MOV 


#123, R2 


XOR 


R2, RO 


BEO 


4* 


CMPB 


NUMON, RO 


BHIS 


9* 



Is this a primary line? 

Br if not, no limits on virtual or detached 

Is first job done initializing?" 

Br if not, VMNUAO not set up yet 

Get max # jobs allowed to be on 

Mask out any sign extension 

Set for XOR 

Decrypt max # jobs allowed on 

Br if no limit on # logged on jobs 

Max # jobs already logged on? 

Br if yes 



Initialize some line control tables 



4*: 



CLR LSW<R1) 

CLR LNBLKS<R1) 

CLR LI0CNT<R1) 

CLR LCMPL(Rl) 



Reset job status flags 

JOB HAS NO ASSIGNED MEMORY NOW 

JOB HAS NO ACTIVE I/O 

JOB HAS NOT PENDING COMPLETION ROUTINES 



Determine how much memory the line needs to be initiated. 



MOV 

ASL 
ADD 



DFJMEM, RO 
RO 
CXTPAG, RO 



GET DEFAULT # KB FOR JOB 

CVT TO # PAGES 

ADD # PAGES NEEDED FOR JOB CONTEXT BLOCK 



I 
I 
f 

f 
I 
I 
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4 
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1 ine 




58 


001716 


020037 


OOOOOOG 




59 


001722 


103002 






60 


001724 


013700 


OOOOOOG 




61 










62 










63 










64 










65 


001730 


010061 


OOOOOOG 


1 


66 


001734 


105737 


OOOOOOG 




67 


001740 


001010 






68 


001742 


010061 


OOOOOOG 




69 


001746 


004737 


OOOOOOG 




70 


001752 


103521 






71 
72 
73 


001754 


052761 


OOOOOOG 


OOOOOOG 








i 


74 








> 


75 


001762 


016102 


OOOOOOG 


*". 


76 


001766 


010261 


OOOOOOG 




77 


001772 


010261 


OOOOOOG 




78 


001776 


010261 


OOOOOOG 




79 


002002 


016161 


OOOOOOG 


OOOOOOG 


80 


002010 


005061 


OOOOOOG 




81 


002014 


052761 


OOOOOOG 


OOOOOOG 


82 


002022 


052761 


OOOOOOG 


OOOOOOG 


83 


002030 


012761 


OOOOOOG 


OOOOOOG 


84 


002036 


012761 


OOOOOOG 


OOOOOOG 


85 


002044 


113761 


OOOOOOG 


OOOOOOG 


86 


002052 


113761 


OOOOOOG 


OOOOOOG 


87 


002060 


013761 


OOOOOOG 


OOOOOOG 


88 


002066 


013761 


OOOOOOG 


OOOOOOG 


89 


002074 


010361 


OOOOOOG 




90 










91 










92 










93 










94 


002100 


020127 


OOOOOOG 




95 


002104 


101023 






96 


002106 


005061 


OOOOOOG 




97 


002112 


042761 


OOOOOOG 


OOOOOOG 


98 


002120 


032761 


OOOOOOG 


OOOOOOG 


99 


002126 


001412 






100 


002130 


013761 


OOOOOOG 


OOOOOOG 


101 


002136 


032761 


OOOOOOG 


OOOOOOG 


102 


002144 


001403 






103 


002146 


052761 


OOOOOOG 


OOOOOOG 


104 










105 










106 










107 


002154 


004737 


OOOOOOG 


e 


108 










109 










110 










111 


002160 


105237 


OOOOOOG 




112 


002164 


020127 


OOOOOOG 




113 


002170 


101003 






114 


002172 


105237 


OOOOOOG 
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CMP 

BHIS 

MOV 



RO, KMNPGS 
1* 
KMNPGS, RO 



COMPARE TO # PAGES NEEDED TO RUN KMDN 

BR IF JOB SPACE > KMON SIZE 

MUST HAVE AT LEAST ENOUGH MEMORY FOR KMON 



MOV 


RO, LMEMIN(Rl) 


TSTB 


VSWPFL 


BNE 


3* 


MOV 


RO, LNBLKS(R1> 


CALL 


GETMEM 


BCS 


9* 


BIS 


#*INCDR,LSW(R1) 



If this is a non-suiapping system, make sure enough free pages are 
available for this job. 

1*: MOV RO, LMEMIN(Rl) i SET # MEMORY PAGES NEEDED FOR JOB 

IS THIS A SWAPPING SYSTEM? 
BR IF YES 

SET SIZE OF ROOT OF JOB REGION 
TRY TO ALLOCATE MEMORY FOR THIS JOB 
BR IF NOT ENOUGH MEMORY AVAILABLE 
SET FLAG SAYING JOB IS IN MEMORY 

Initialize the line control tables for the job 

3«: MOV LINBUF(R1),R2 i SET UP INFO ABOUT INPUT BUFFER 

MOV R2, LINNXT(Rl) 

MOV R2, LSTACT<R1) 

MOV R2, LINPNT<R1) 

MOV LINSIZ(Rl), LINSPC(Rl) 

CLR LINCNT<R1) 

BIS #*DILUP,LSW<R1) ; REMEMBER LINE IS ACTIVE 

BIS #*NOIN, LSW3(R1) ; DON'T ACCEPT TT CHARS FOR LINE YET 

MOV #*SUCF, LSW9<R1 ) i Say we are in startup command file 

MOV #$PWKEY, LSWlKRDi Initialize LSWll 

MOVB VPRIDF, LBSPRI(R1);SET BASE PRIORITY FOR JOB 

MOVB VPRIDF, LPRKRDiSET CURRENT PRIORITY FOR JOB 

MOV VINTIO, LHIPCT(Rl); INIT HIGH-PRIORITY HITS FOR JOB 

MOV VQUAN1,LITIME<R1);SET INTERACTIVE JOB TIME SLICE 

MOV R3, LPR0J(R1> ; Store ptr to command file buffer in LPROJ 

If this is a dial-up line and carrier is up, set flag that will 
cause us to log off the line if carrier is lost. 



CMP 
BHI 
CLR 
BIC 
BIT 
BEQ 
MOV 
BIT 
BEQ 
BIS 



R1,#LSTPL i Is this a primary line? 

2* ; Br if not 

L0FFTM<R1) i Don't have to time logoff time any more 

#*CARMN, LSW5<R1 )i Assume we do not need to monitor carrier 

#*PHONE, ILSW2(R1); Is this a dial-up line? 



?* 



i Br if not 



VTMLOC, LCDTIM(R1 ) ; Give local line this long to raise carrier 

#*CARUP, LSW3<R1)» Is carrier up now? 

2* ; Br If not 

#*CARMN, LSW5<R1 )i Set flag saying to monitor carrier 



Put job in high priority execution state 

2*: CALL QHIPRI ; PUT JOB IN HIGH PRIORITY STATE 

Count number of logged on jobs 

j Total number of logged on jobs 

ils this a primary line? 

; Br if not 

J Count another real line on 



INCB 


TOTON 


CMP 


R1,#LSTPL 


BHI 


5* 


INCB 


NUMON 



I 
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116 
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118 
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121 


122 


123 


124 


125 


126 


127 


128 


129 


130 


131 


132 


133 


134 


135 


136 


137 


138 


139 
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— Initialize a line 



002176 000403 

002200 020127 OOOOOOG 

002204 101402 

002206 105237 OOOOOOG 



002212 000241 
002214 000407 



002216 010146 

002220 010301 

002222 001402 

002224 004737 OOOOOOG 

002230 012601 

002232 000261 



002234 012603 
002236 012602 
002240 000207 





BR 


6« 


5*: 


CMP 


R 1 , #LSTDL 




BLOS 


8* 


6*: 


INCB 


PVON 


> 


Successful 


finish 


8*: 


CLC 






BR 


10* 



; Is this a virtual line? 

i Br if not 

i Count # primary %t virtual lines on 



Signal successful return 



We were not able to start the job 

Free the I/O queue element used to pass name of start— up command file 

i Save job number 

i Get pointer to Q element 

j Br if no Q element to free 

i Free the Q element 

i Restore job number 

j Signal failure on return 



9*: 


MOV 


R 1 , - ( SP > 




MOV 


R3, Rl 




BEQ 


11* 




CALL 


QFREE 


11*: 


MOV 
SEC 


(SP)+,R1 


J Finished 




10*: 


MOV 


(SP)+, R3 




MOV 


<SP)+, R2 




RETURN 
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29 
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31 
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00224;; 



002242 
002250 
002254 
002260 
002264 
002270 
002274 
002302 
002306 
002312 
002316 
002324 
002330 
002334 
002340 
002344 
002350 
002354 
002360 
002364 
002370 
002374 
002400 



002412 
002416 
002422 
002424 
002426 
002430 
002432 
002440 



002444 
002452 
002460 



. SBTTL NEWUSR — Start a new time-sharing job 
Do initialization for start-up of a neui job. 
NEWUSR: 



052761 OOOOOOG OOOOOOG 

005061 OOOOOOG 

005061 0000006 

005061 OOOOOOG 

005061 OOOOOOG 

005061 OOOOOOG 

012761 OOOOOOG OOOOOOG 

016102 OOOOOOG 

010261 OOOOOOG 

010261 OOOOOOG 

016161 OOOOOOG OOOOOOG 

005061 OOOOOOG 

005061 OOOOOOG 

005061 OOOOOOG 

005061 OOOOOOG 

005061 OOOOOOG 

005061 OOOOOOG 

005061 OOOOOOG 

005061 OOOOOOG 

005061 OOOOOOG 

005061 OOOOOOG 

005061 OOOOOOG 

005061 OOOOOOG 



Initialize LSW tables. 

BIS #«INIT, LSW<R1) 

CLR LQUAN<R1) 

CLR LJSW(Rl) 

CLR LSW7(R1) 

CLR LSW8<R1) 

CLR LNSBLKCRl) i 

MOV #*INKMN, LSW4(Rl)i 

MOV L0TBUF(R1)>R2 : 

MOV R2, LOTNXT(Rl) 

MOV R2, LOTPNKRl) 

MOV L0TSIZ(R1).L0TSPC 

CLR LACTIV(Rl) / 

CLR LC0L<R1) 

CLR LAFSIZ<R1) 

CLR LPROG(Rl) 

CLR LSCCA<R1) 

CLR LBRKCQ<R1) 

CLR LBRKCH<R1) 

CLR LTTCR<R1) 

CLR LCPUHKRl) 

CLR LCPULO(Rl) 

CLR LCONTM(Rl) 

CLR LINCUR(Rl) 



SAY JOB INITIALIZATION IS BEING DONE 
INITIALIZE JOB'S TIME QUANTUM 
JOB STATUS WORD 



NO SPACE FOR ANY PLAS REGIONS 

START OUT RUNNING KMON 

SET UP INFO ABOUT OUTPUT BUFFER 



(Rl) 
SAY NO 



ACTIVATION CHARS RECEIVED YET 



NO ACTIVATION FIELD SIZE 

OR PROGRAMMER NUMBER 

NO . SCCA DONE YET 

NO BREAK KEY CONNECTION 

CLEAR BREAK CHARACTER 

No TT activation completion routine 

CLEAR RUN-TIME ACCUMULATOR 

CLEAR CONNTECT-TIME 



002404 016137 OOOOOOG OOOOOOG 



Map kernel mode PAR 6 to job context block. 

MOV LCXPAR(Rl)>@#KPAR6i MAP KERNEL PAGE 6 TO CONTEXT BLOCK FOR JOB 
Zero the job's context block 



012702 
013703 
006203 
005022 
005022 
077303 
032737 
001401 
005012 



012737 
012737 



OOOOOOG 
OOOOOOG 



000001 OOOOOOG 



MOV #CXTBAS, R2 

MOV CXTWDS, R3 

ASR R3 

7*: CLR <R2)+ 

CLR (R2)+ 

SOB R3i 7* 

BIT »1,CXTWDS 

BEQ 8$ 

CLR (R2) 



Get address of base of context area 

Get # words in context area 

Get # of doublewords 

Clear first word of pair 

Clear second word of pair 

Loop if more doublewords left to clear 

Is there an odd word at end to clear? 

Br if not 

Clear last word of context block 



177777 OOOOOOG 
OOOOOOG OOOOOOG 
1 o-^a.'^A nrtnnnna 



8«: 



Initialize some cells in job context block 

MOV #-l.EMTLEV ; Say job is not executing an EMT 

MOV #EMTCAS. EMTCAD ; Say completion routine return stack is empty 

I lUV it JL KU^mt^ \J\^/ \Ji^ I r\ttA^ /w/l^w rv.i.&ww w-rt.w WW WMWWn iwt :avi=IU.n UVCI lAUW 



002466 013702 OOOOOOG 



Set up simulated RMON fixed offset table. 

MOV CXTRMN, R2 i Get addr of RMON in job context area 
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002472 
002476 
002502 
002504 



002506 
002512 
002516 



002522 
002526 
002532 
002536 



0O2540 
002544 
002546 
002554 
002556 
002562 
002566 
002570 
002572 
002574 
002576 
002602 
002604 



002610 
002614 
002616 
002622 



002624 
002632 



002634 
002642 
002650 
002656 



012703 
012700 
012322 
077002 



013700 
062700 
105060 



013700 
062700 
012720 
005010 



016104 
001421 
116437 
010402 
062702 
012703 
112223 
001376 
010146 
010401 
004737 
012601 
005061 



020127 
003021 
020127 
003404 



052761 
000430 



OOOOOOG 
OOOOOOG 



4*: 



MOV »VECBAS> R3 

MOV #MVWDS, RO 

MOV (R3)+, (R2) + 

SOB RO, 4* 



POINT TO SYSTEM CHANNEL BLOCK 

GET # WORDS TO MOVE 

SET UP JOB'S SIMULATED RMON IN CONTEXT BLK 



Zero the I/O count in the channel used to access system swap file. 

(Count could be non-zero if swap was in progress when we copied RMON data) 



OOOOOOG 
OOOOOOG 
OOOOOOG 



MOV CXTRMN, RO 
ADD #R*SWPC, RO 
CLRB C.NUMQ<RO) 



* Get pointer to base of simulated RMON 
iPoint to swap file channel in context block 
> Zero I/O count in swap file channel block 



change instruction in . MFP3 routine in simulated RMON to return a 
value of rather than trying to access the I/O page 



OOOOOOG 
OOOOOOG 
012716 



MOV CXTRMN, RO 

ADD #R*MFMV, RO 

MOV #012716, <R0)' 

CLR <R0) 



Get pointer to base of simulated RMON 
Point to MOV @#PSW, <SP) instruction 
Store MOV #0, (SP) instruction 
Store value following instruction 



OOOOOOG 

OOOOOOG OOOOOOG 

OOOOOOG 
0000006 



11*: 



OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 



See if we need to set up the name of a secondary start-up command 
file for the job or other info provided by initiating job. 

i Get pointer to buffer with file name 
; Br if no secondary start-up file 
; Save index # of initiating job 

Point to start of name string 

Point to cell in context block 

Move name into context block 

Loop till asciz null reached 

Save job number 

Get pointer to Q element used as buffer 

Free the Q element 

Restore job number 

Say no project number 

Determine if this is a primary, virtual, or detached line 



MOV 


LPR0J(R1)>R4 i 


BEQ 


10* ; 


MOVB 


IB*IJ<R4),SPIJ ; 


MOV 


R4, R2 


ADD 


#IB*SF2, R2 i 


MOV 


#SUCF2, R3 i 


MOVB 


<R2>+, (R3)+ i 


BNE 


11* i 


MOV 


R1,-(SP) i 


MOV 


R4, Rl i 


CALL 


QFREE •> 


MOV 


(SP)+,R1 i 


CLR 


LPR0J<R1> } 



10$: 



CMP 
BGT 
CMP 
BLE 



Rl, #LSTDL 

1* 

Rl, #LSTPL 

2* 



REAL OR VIRTUAL LINE? 
BR IF VIRTUAL 
REAL OR DETACHED LINE? 
BR IF REAL 



OOOOOOG OOOOOOG 



016161 OOOOOOG OOOOOOG 2*: 

016161 OOOOOOG OOOOOOG 

042761 OOOOOOC OOOOOOG 
000416 



Initialization for detached jobs only. 

BIS #*DETCH, LSW<R1) i REMEMBER THIS IS A DETACHED JOB 
BR 3* 

Initialization for primary lines only. 

MOV ILSW2<R1), LSW2<Rl)i INIT SOME LSW TABLES 

MOV ITRMTP<R1), LTRMTP<R1)J SET DEFAULT TERMINAL TYPE 

BIC #*CTRLS!*CTRLO, LSW3(Rl)i Enable terminal output 

BR 3* 

Initialization for virtual lines only. 



( 
( 
f 

I 

< 

i 



4 
f 
I 



€ 
I 

< 
I 
i 



i 
i 

( 



c 
i 



TSEXC2 — Misc 
NEWUSR — Start 
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a new time-sharing job 



\ 
( 
' I 

i 

f 
I 
f 
i 

i 
I 

( 



115 

4 4/ 

117 

lis 

119 
120 
121 
122 
123 
124 
125 
126 
127 
12S 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 



Copy some information from parent line. 



002660 
002664 
002672 
002700 
002706 



002714 
002722 
002724 



002732 
002736 
002742 
002746 



002752 



016102 OOOOOOG 1*: 

016261 OOOOOOG OOOOOOG 

016261 OOOOOOG OOOOOOG 

016261 OOOOOOG OOOOOOG 

016261 OOOOOOG OOOOOOG 



MOV LNPRIM<R1),R2 ; GET PRIMARY LINE # 

MOV LSW2(R2>.LSW2(R1) 

MOV LTRMTP<R2),LTRMTP(R1) 

MOV LPR0J(R2), LPROJ(Rl) 

MOV LPR0G<R2>, LPR0G<R1) 



See if we should start line with deferred echo 



032761 OOOOOOG OOOOOOG 3*: 

001403 

052761 OOOOOOC OOOOOOG 



BIT #*DEFER,LSW2<Rl)i Is deferred echo wanted? 

BEQ 6* ;Br if not 

BIS #<*D0DFR!*GCEC0>, LSW3<R1) » Start deferring now 



004737 OOOOOOG 

013700 OOOOOOG 

072027 000012 

010037 OOOOOOG 



012706 OOOOOOG 



CALL 


SETMAP 


MOV 


DFJMEM, RO 


ASH 


#10. ,R0 


MOV 


RO, MAXMEM 



002756 000466 



Set up mapping registers for job. 

6$: CALL SETMAP i SET UP MAPPING REGISTERS FOR THE JOB 

i GET DEFAULT # K-BYTES OF MEMORY FOR JOB 

; CONVERT TO ADDRESS 

i SET AS DEFAULT UPPER LIMIT FOR JOB 

Switch to stack in job's context area. 

MOV #JSTK,SP i SWITCH TO CONTEXT-BLOCK STACK 
Enter code to load KMON. 

BR LDKMON ; GO LOAD KMON 



i 
i 
I 
i 



1 
4 
I 



I 

t 
i 
I 
I 
( 

( 
i 
c 
f 
I 
( 
I 
( 
i 

i 
( 
i 



TSEXC2 
STOP 



d 

3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
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SBTTL STOP — Stop program execution ?< enter KMON 



002760 
002764 
002766 
003004 
003010 
003016 
003024 
003032 
003040 
003046 
003050 
003054 
003056 
003062 
003064 



003070 
003074 



003102 
003110 
003112 
003120 
003126 



003134 
003142 
003150 
003154 
003160 
003166 
003174 
003202 
003206 
003210 
003214 
003220 
003224 
003230 
003236 
003242 
003246 



00325J 



113701 
001007 



052761 
012737 
052737 
032761 
001010 
106537 
000316 
1 1 2637 
005046 
106637 



004737 
042761 



032761 
001411 
052761 
052761 
042761 



052737 
042761 
016146 
106537 
052761 
042761 
042761 
105737 
001406 
013700 
162700 
004737 
004737 
013737 
012637 
011637 
n 1 ;?AA 1 



OOOOOOG 



012706 0000000 



1$: 



OOOOOOG OOOOOOG 
1 77777 OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 

000052 

OOOOOOG 

000052 



STOP is jump 


ed to when the 


enter KMON. 


This is usuall 


P: MOVE 


CORUSR, Rl 


BNE 


1* 


DIE 


#EM«SJN, <SP) 


MOV 


#JSTK, SP 


ENABL 




BIS 


#*N0UCR,LSW9<R 


MOV 


#-l,EMTLEV 


BIS 


#UPMODE, @#PSW 


BIT 


#*INKMN, LSW4<R 


BNE 


2* 


MFPD 


e#52 


SWAB 


(SP) 


MOVB 


(SP>+, UERSEV 


CLR 


-<SP) 


MTPD 


@#52 



job tuants to terminate its execution and 
y caused by .EXIT, .CHAIN or CTRL-C. 



GET JOB # OF CURRENT JOB 

IF SHOULD NOT BE ZERO 

DIE IF JOB # = O 

RUN ON JOB'S CONTEXT-BLOCK STACK 

MAKE SURE INTERRUPTS ARE ENABLED 

Tell DOCMPL not to run user compl routines 

SAY JOB IS NOT EXECUTING AN EMT 

MAKE SURE PREVIOUS-MODE ^ USER 

IS KMON RUNNING NOW? 

BR IF YES 

GET JOB'S ERROR CELLS 

PUT <53) IN LOW-ORDER BYTE 

SAVE USER SPECIFIED ERROR SEVERITY 

NOW CLEAR USER ERROR SEVERITY 



1) 



1 ) 



LEVEL 



Do general cleanup on exiting job. 



003422' 2*: 

OOOOOOG OOOOOOG 



CALL CLENUP i CLEAN UP STATUS OF JOB 

BIC #$NOUCR* LSW9(R1 )/ Reenable user completion routine processing 



See if we should force logoff of this job. 



OOOOOOG OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 



BIT #*DISCN, LSW<R1) 

BEQ LDKMON 

BIS #*DOOFF. LSW(Rl) 

BIS #$NOIN, LSW3<R1) 

BIC #*DISCN, LSW(Rl) 



DID A LINE DISCONNECT OCCUR? 

BR IF NOT 

FORCE LOGOFF 

IGNORE INPUT FROM LINE DURING LOGOFF 

ACKNOWLEDGE DISCONNECT 



Read KMON into memory and enter it 



OOOOOOG OOOOOOG LDKMON: BIS 

173330 OOOOOOG BIC 

OOOOOOG MOV 

OOOOOOG MFPD 

OOOOOOG OOOOOOG BIS 

OOOOOOG OOOOOOG BIC 

OOOOOOG OOOOOOG BIC 

OOOOOOG TSTB 

BEQ 

OOOOOOG MOV 

OOOOOOG SUB 

OOOOOOG CALL 

OOOOOOG 3*: CALL 

OOOOOOG OOOOOOG MOV 

OOOOOOG MOV 

OOOOOOG MOV 

OOOOOOG MOV 



#UPMODE, e#psw 

#173330. LJSW<R1) 

LJSW<R1),-<SP) 

e#ERRLOC 

#*INKMN>LSW4<R1) 

#*MAPOK, LSW7(R1) 

#«VIRJB.LSW9(R1) 

VSWPFL 

3* 

KMNTOPi RO 

#KMNBAS, RO 

SUTOP 

SETMAP 

KMNTOP, UHIMEM 

<SP)+, e#ERRLOC 

< SP ) , e# JSWLOC 

(SP>+, LJSW<R1) 



SET USER-PREVIOUS-MODE IN PS 

CLEAN OUT SOME FLAGS IN JOB STATUS WORD 

GET CURRENT JOB STATUS WORD 

GET JOB'S ERROR CELLS 

SAY KMON IS RUNNING 

SAY CONTEXT BLOCK MAPPING DATA IS INVALID 

SAY THIS IS NOT A VIRTUAL JOB 

IS THIS A NON-SWAPPING SYSTEM? 

BR IF YES — DON'T CHANGE MEMORY ALLOCATION 

GET ADDRESS ABOVE TOP OF KMON 

GET AMT OF MEMORY NEEDED FOR KMON 

SET TOP OF MEMORY FOR JOE 

MAKE SURE MEMORY MAPPING SET FOR KMON 

SAY JOB CAN ACCESS KiP TO TOP OF KMON 

SET ERROR CELLS 

SET JSW 



012703 000017 



Set up status in user channel # 17 to allow us to access kmon file. 
MOV #17, R3 i USE USER CHANNEL # 17 



f 
I 
< 
f 

i 
< 
f 
< 
I 
i 

I 

I 

( 
i 
I 
* 



I 

t 

I 

» I 

' i 



i 

I 

4 
( 



TSEXC2 


— Misc 


. TSX-Pl 


us Execu 


STOP 


— Stop 


program 


Bxecutio 


58 


003256 






59 


003266 


013703 


OOOOOOG 


60 


003272 


062703 


0000000 


61 


003276 


012700 


000005 


62 


003302 


012704 


OOOOOOG 


63 


003306 


012423 




64 


003310 


077002 




65 








66 








67 








68 


003312 


013703 


OOOOOOG 


69 


003316 


162703 


OOOOOOG 


70 


003322 


000241 




71 


003324 


006003 




72 


003326 






73 


003362 


103005 




74 


003364 






75 








76 








77 








78 


003376 


013746 


OOOOOOG 


79 


003402 


106606 




SO 








81 








82 








83 


003404 


005061 


OOOOOOG 


84 








85 








86 








87 


003410 


012746 


OOOOOOG 


88 


003414 


013746 


OOOOOOG 


89 


003420 


000002 





1*: 



. PURGE 


R3 i 


MOV 


CXTRMN, R3 i 


ADD 


#R*CH17, R3 i 


MOV 


#5, RO ; 


MOV 


#KMNCHN, R4 i 


MOV 


<R4)+, (R3)+ i 


SOB 


R0> 1$ 



MAKE SURE CHANNEL 17 IS FREE 

BASE OF JOB CHANNEL AREA 

POINT TO AREA FOR CHANNEL # 17 

# WORDS TO MOVE 

POINT TO BLOCK WITH KMDN SAVED STATUS 

SET UP INFO IN USER CHANNEL 17 BLOCK 



Now read Kmon into user's program space. 



KMNTOP, R3 
#KMNBAS, R3 



i GET TOP OF MEMORY ADDRESS FOR KMON 
i SUBTRACT BASE ADDRESS OF KMON 



MOV 

SUB 

CLC 

ROR R3 i CVT TO # WORDS TO READ 

. READW #CSIARE, #17, #0, R3, #32. ; READ IN KMON 

BCC 2* J BR IF READ OK 

DIE #EM*KRE ; SYSTEM HALT IF KMON READ ERROR 

Set up Kmon user-mode stack pointer. 



2*: 



MOV KMNSTK, - ( SP ) 
MTPD SP 



i GET KMON STACK POINTER 
i SET IN USER -MODE SP 



Give Kmon a full time-slice. 

CLR LQUAN<R1) ; CLEAR JOB TIME QUANTUM 
Use RTI to enter Kmon in user mode. 



MOV 
MOV 
RTI 



#UMODE, -<SP) 
KMNSTR, -<SP) 



USER-MODE PS 

STARTING ADDRESS IN KMON 

ENTER KMON IN USER MODE 



t 
( 
( 
( 
i 
i 
« 
I 
I 

I 

{ 
I 
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1 
2 
3 
4 
5 
6 
7 
8 
9 003422 

10 003424 

11 003426 

12 003430 

13 003432 

14 003440 

15 003444 

16 003450 

17 003454 

18 003462 

19 003470 

20 003474 

21 003500 

22 003504 

23 003510 

24 003514 

25 003522 
26 

27 
28 

29 003526 

30 003534 

31 003536 

32 003542 

33 003550 

34 003552 

35 003556 

36 003564 

37 003572 

38 003600 
39 

40 
41 

42 003606 

43 003612 

44 003614 

45 003620 
46 

47 

48 

49 003624 

50 

51 

52 

53 003632 

54 003636 

55 003640 

56 003646 
57 



010146 
010246 
010446 
010546 
042761 
005061 
005061 
005061 
042761 
042761 
005061 
005061 
005061 
005037 
005037 
012737 
005037 



032761 
001424 
105037 
032737 
001413 
012700 



105737 
001004 
004737 
004737 



120137 
001004 

000771 



. SBTTL CLENUP — Do general cleanup when a job stops 

CLENUP is called to do I/O rundown and other general cleanup 
operations when a job stops. 

Inputs: 
Rl = Job index number 



OOOOOOC 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOC 
OOOOOOC 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG 



OOOOOOG 
OOOOOOG 



OOOOOOG 



CLENUP: MOV 
MOV 
MOV 
MOV 
BiC 
CLR 
CLR 
CLR 
BIC 
BIC 
CLR 
CLR 
CLR 
CLR 
CLR 
MOV 
CLR 



Rl, -(SP) 

R2, -<SP) 

R4, -<SP) 

R5, -(SP) 

#<*RDSAV:*GEMAR>, LSWll <R1 )» No longer reading in SAV file 

LSLEPH<R1) i CLEAR . TWAIT SLEEP TIME 

LSLEPL ( R 1 ) 

LSPND(Rl) i CLEAR . SPND COUNT FOR JOB 

#<*IOMAPi*MLOCK;*DBGMDi«NOLF>, LSW6(R1) i CLEAN OUT LSW6 

#*DBGBK!*NOABT!*RNMLKi LSW9<R1); Clear LSW9 flaqs 



LRDTIM<R1) 

LSCCA(Rl) 

LBRKCH(Rl) 

EMTRAD 

SPCPS 

#EMTCAS, EMTCAD 

D. FLAG 



CLEAR ANY TT-READ TIMEOUT 
REMOVE CONTROL-C TRAP CONTROL 
CLEAR BREAK CHARACTER 



; Reset return stack for completion routines 
i Clear debugger control flags 



If double control-C was typed^ echo this to the log file 



OOOOOOG OOOOOOG 



OOOOOOG 
OOOOOOG 

000003 



OOOOOOG 



042761 OOOOOOG OOOOOOG 11*: 



BIT 

BEQ 

CLRB 

BIT 

BEQ 

MOV 

OCALL 

OCALL 

OCALL 

BIC 



#*CTRLC,LSW<R1) i Were we aborted by 2 ctrl-c's? 



J Br if not 

i Reset chain-in-progress flag 

i Are we logging input characters? 

i Br if not 

jEcho -^c 

i twice 

i Log Cr Lf 



12* 

CINFLG 

#LF*IN> LOGFLG 

11* 

#3, RO 

LOGCHR 

LOGCHR 

LOGCR 

#*CTRLCi LSW<R1 ) i Clear control-C abort flag 



Abort all I/O for this job 



OOOOOOG 

OOOOOOG 
OOOOOOG 



12*: 



TSTB 


CINFLG 


BNE 


16* 


CALL 


CANIOT 


CALL 


lOHALT 



; Are we doing a . CHAIN? 

i Br if yes 

i Cancel any pending . TIMIO requests for job 

i Abort pending I/O operations for this job 



Do any real-time associated cleanup 



nnnnnnG 



16*: OCALL RTSTOP 

i 

; Free the USR 

i 

4*: 



CMPE 


Rl; USR JOB 


BNE 


15* 


OCALL 


FREUSR 


BR 


4* 



; DO REAL-TIME CLEANUP 



: ARE WE HOLDING THE USR? 

i BR IF NOT 

i RELEASE IT 

iWE MAY HAVE LOCKED IT MORE THAN ONCE 



I 

( 

( 

i 
< 

i 



I 
« 

f 
I 

I 
( 
f 

I 

1 

i ( 
» ( 



TSEXC2 


— liisc 


. TSX-Pl 


us Execu 


CLENUP - 


— Do general cl 


eanup uih 


58 








59 








60 


003650 


120137 


OOOOOOG 


61 


003654 


001003 




62 


003656 






63 








64 








65 








66 


003664 






67 








68 








69 








70 


003672 






71 








72 








73 








74 


003700 






75 








76 








77 








78 


003706 


005737 


0000000 


79 


003712 


001403 




80 


003714 






81 








82 








S3 








84 


003722 


016100 


OOOOOOG 


85 


003726 


001407 




86 


003730 


005061 


OOOOOOG 


87 


003734 


010146 




88 


003736 


010001 




89 


003740 


004737 


OOOOOOG 


90 


003744 


012601 




91 








92 








93 








94 


003746 


016100 


OOOOOOG 


95 


003752 


001407 




96 


003754 


005061 


OOOOOOG 


97 


003760 


010146 




98 


003762 


010001 




99 


003764 


004737 


OOOOOOG 


100 


003770 


012601 




101 








102 








103 








104 


003772 


004737 


004146' 


105 








106 








107 








108 


003776 


013704 


OOOOOOG 


109 


004002 


001405 




110 


004004 


013705 


000002G 


111 


004010 


004777 


OOOOOOG 


112 


004014 


000770 




113 








114 









Free job context block buffer 



15*: 



CMPB 


R1>CXB0WN 


BNE 


3* 


OCALL 


FRECXT 



jAre we holding context block buffer? 

; Br if not 

j Free context block buffer 



i Free the Special Device data base 

i 

3*: OCALL FRESPD ; FREE SPECIAL DEVICE DATA BASE 

> 

i Cancel any pending mark-time requests for this job 

OCALL CANMKT ; CANCEL ALL MARK=TIME REQUESTS FOR JOB 

i Cancel any monitoring requests for this job 

OCALL liONABT ; Cancel any monitoring requests 

; Cancel any pending message requests for this job 

J 

» Is message system included in system? 

; Br if not 

; Cleanup message system 



TST 


VMAXMC 


BEQ 


14* 


OCALL 


MSGABT 



Undo Break key connection. 



14*: 



MOV 


LBRKCQ(Rl).- RO 


BEO 


17* 


CLR 


LBRKCGKRl) 


MOV 


R 1 , - ( SP > 


MOV 


RO, Rl 


CALL 


QFREE 


MOV 


<SP)+,R1 



GET ADDRESS OF BREAK QUEUE ENTRY 

BR IF NONE 

SAY NO BREAK KEY CONNECTION 

SAVE JOB INDEX NUMBER 

GET QUEUE ENTRY ADDRESS FOR QFREE 

FREE THE QUEUE ENTRY 

GET BACK JOB NUMBER 



Undo TT input completion routine connection 



MOV 


LTTCR(Rl), RO 


BEQ 


1* 


CLR 


LTTCR<R1) 


MOV 


R1>-<SP) 


MOV 


ROiRl 


CALL 


QFREE 


MOV 


(SP)+,R1 



17*: MOV LTTCR(R1),R0 i GET ADDRESS OF QUEUE ENTRY 

BR IF NONE 

SAY NO COMPL ROUTINE 
SAVE JOB INDEX NUMBER 
GET QUEUE ENTRY ADDRESS FOR QFREE 
FREE THE QUEUE ENTRY 
GET BACK JOB NUMBER 

i 

; Clean up all pending completion routine requests for this job 

i 

1*: CALL CANCPL ; Cancel all pending completion routines 

> 

i Close all shared files for this job. 

i 

5*: MOV JCDB, R4 < GET ADDRESS OF NEXT CDB FOR JOB 

BR IF NO MORE 
Get par pointer for CDB 
CLOSE THE CDB 
SEE IF THERE ARE MORE TO DO 

Release any PLAS regions created for the job 



MOV 


JCDB, R4 


BEQ 


6* 


MOV 


JCDB+2, R5 


CALL 


eCLSCDB 


BR 


5* 



c 
I 
i 
i 
i 
I 
I 
I 



i 
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i 
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i 

f 
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TSEXC2 
CLENUP - 

115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
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- Do general cleanup uhen a job stops 



004016 
004022 
004024 



004032 
004036 
004042 



004046 
004052 
004056 
004060 
004064 
004070 
004074 
004100 
004104 
004110 
004112 
004120 
004124 
004126 



004134 
004136 
004140 
004142 
004144 



005737 
001403 



005037 
005037 
105037 



005037 
105037 
005002 
005062 
005062 
005062 
005062 
062702 
020227 
101763 
042761 
105737 
001403 
042737 



012605 
012604 
012602 
012601 
000207 



OOOOOOQ 



6*: TST VPLAS 
BEQ 13* 
OCALL PLSXIT 

Release trap control for job 



OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

000002 

000016 

OOOOOOG OOOOOOG 
OOOOOOG 

OOOOOOG OOOOOOG 



13*: 



CLR 
CLR 
CLRB 



UTRPAD 
UFPTRP 
FPUUSE 



Page 8-2 



i 13 PLAS SUPPORT GENNED INTO SYSTEM' 

i BR IF NOT 

i FREE ANY PLAS REGIONS AND WINDOWS 



iUndo . TRPSET 

i Undo . SFPA 

iTell system that FPU is not in use 



Release any associated shared run-time systems 



9*: 



CLR 

CLRB 

CLR 

CLR 

CLR 

CLR 

CLR 

ADD 

CMP 

BLOS 

BIC 

TSTB 

BEQ 

BIC 

Finished 



10*: 



MOV 
MOV 
MOV 
MOV 

RETURN 



CURRDB i 

DOTRMP ; 

R2 i 

RPAR<R2) ; 
RPDR<R2) 
RDAR(R2> 
RDDR<R2) 

#2, R2 J 

R2, #2*7 .: 

9* ; 
#*UDSPC, LSWIKRI) 

SR3FLG i 

10* i 
#USDSPC> SR3MMR ! 



(SP)+, R5 
<SP)+, R4 
<SP)+, R2 
(SP)+,R1 



DISASSOCIATE 
Disable fast 
INIT PAR INDEX 
RESET PAR MAPPING 



RUN-TIME SYSTEM 
TRAP mapping 



INFO 



I 

I 
f 

I 

i 
i 

( 

I 



ADVANCE INDEX 

DONE ALL? 

LOOP IF MORE TO DO 

« Clear flag saying user luants I/D-space 
Does hardware support I/D space? 
Br if not 
Disable user D-space 



{ 

< 

4 



TSEXC2 
CANCPL - 

1 
•-) 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
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- Cancel all pending completion routines 



. SBTTL CANCPL 



Cancel all pending completion routines 



004146 010546 



004150 105037 OOOOOOG 



CANCPL is called during job exit cleanup to cancel any pending completion 
routines. User — mode completion routines are removed from the pending 
list* system-mode completion routines are forced to be called. 

Inputs: 
Rl = Job index number. 

CANCPL: MOV R5, -(SP) 

Say uie are not in a completion routine now 

1*: CLRB CURCP i Say not executing in completion rtn noui 

If any I/O is in progress for job> suspend execution while we 
wait for it to finish. 



004154 

004162 126137 OOOOOOG OOOOOOG 

004170 003404 

004172 012700 OOOOOOG 

004176 004737 OOOOOOG 



004202 

004210 005761 OOOOOOG 

004214 001005 

004216 126137 OOOOOOG OOOOOOG 

004224 003351 

004226 000403 



DISABL 
CMPB 
BLE 
MOV 

CALL 



LIOCNKRl). NPCCB 
2* 

#S*IOWT, RO 
QNSPND 



; i ** Disable interrupts *# 
; i Is any I/O in progress for job? 
; ; Br if not 
j Suspend job till I/O completes 
;Suspend execution of job 






See if there are any pending completion routines 



>*: 



ENABL 




TST 


LCMPL<R1) 


BNE 


3* 


CMPB 


LIOCNT(Rl). NPCCB 


BGT 


1$ 


BR 


5* 



004230 004737 OOOOOOG 



004234 000745 



004236 005737 OOOOOOG 

004242 001406 

004244 013705 OOOOOOG 

004250 001737 

004252 004777 OOOOOOG 

004256 000772 



004260 012605 
004262 000207 



** Enable interrupts ** 

Is there a pending completion routine? 

Br if yes 

Is all I/O finished too? 

If not/ then wait till it is 

All I/O is finished and no compl rtns pend 

There is at least one pending completion routine. 

Now call SCHED to force pending system-mode routines to be run 

3*: CALL SCHED i Force completion routine execution 

Go back and make sure all completion routines have been taken care of 

BR 1* iLoop till all completion routines finished 

All I/O has terminated and there are no pending completion routines. 
Free any cache control blocks that were pending when job aborted. 

Any pending cache control blocks 

Br if not 

Get pointer to 1st pending control block 

Br if none left pending 

Free the cache control block 

Loop to free any others 



5*: 


TST 


JOBCCB 




BEQ 


9* 


6*: 


MOV 


JOBCCB, R5 




BEQ 


1* 




CALL 


©CSHFIN 




BR 


6* 




Finished 




9«: 


MOV 
RETURN 


<SP)+. R5 



i 
t 
I 
I 



TSEXC2 
LOGOFF 



— Misc. TSX-Plus Execu MACRO V05. 05 
-- Log off a job 



( 
I 

\ c 

1 1 

I 

i 



I 



1 

c- 

3 
4 
5 

7 

e 

9 

10 004264 

11 004272 

12 004274 
13 

14 
15 

16 004300 

17 004306 

18 004310 

19 004314 

20 004320 

21 004324 

22 004326 

23 004332 

24 004334 

25 004336 

26 004342 

27 004344 

28 004350 

29 004356 

30 004360 

31 004366 

32 004372 

33 004400 

34 004402 

35 004410 

36 004412 

37 004420 
38 

39 
40 

41 004422 

42 004426 
43 

44 
45 

46 004430 

47 004434 

48 004436 

49 004442 

50 004444 

51 004452 

52 004454 

53 004460 

54 004462 

55 004464 

56 004470 

57 004472 



032761 
001402 
000137 



032761 
001045 
013704 
013705 
062705 
005504 
023704 
101033 
103403 
023705 
103027 
116103 
032763 
001421 
042763 
004777 
026161 
001352 
032761 
001346 
032761 
001342 



020127 
003466 



105337 
010102 
113703 
001422 
032763 
001016 
016100 
020300 
001412 
016000 
005005 
005205 
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SBTTL LOGOFF — Log off a job 



LOGOFF is jumped to log off the current job. 
All tables for the job are reset and then the 
to look for another job to run. 



number of job being logged off. 



scheduler is entered 



OOOOOOG OOOOOOG 
004754 ' 



i Inputs: 


; Rl 


= Job 


LOGOFF: 


BIT 




BEQ 




JMP 



#*DETCH>LSW<R1.> ; IS THIS A DETACHED JOB LOGGING OFF? 

26* i Br if not 

4* 



Wait for all TT output for the job to complete. 



OOOOOOG OOOOOOG 26*: 

OOOOOOG 
OOOOOOG 
000454 

OOOOOOG 10*: 



OOOOOOG 

OOOOOOG 
OOOOOOG OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG 
OOOOOOG OOOOOOG 

OOOOOOC OOOOOOG 

OOOOOOG OOOOOOG 



16*: 



OOOOOOG 



12*: 



OOOOOOG 
OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG 

OOOOOOG 



BIT 


#*VNOTT, LSW<R1) 


BNE 


12* 


MOV 


SYTIMH, R4 


MOV 


SYTIML, R5 


ADD 


#5. *60. , R5 


ADC 


R4 


CMP 


SVIIMH, R4 


BHI 


12* 


BLO 


16* 


CMP 


SYTIML, R5 


BHIS 


12* 


MOVB 


LNPRIM<R1),R3 


BIT 


#*DILUP> LSW(R3) 


BEQ 


12* 


BIC 


#*CTRLS, LSW3<R3) 


CALL 


eTRNSTR 


CMP 


L0TSPC<R1>,L0TSI 


BNE 


10* 


BIT 


#<*DHBF1 !*DHBF2> 


BNE 


10* 


BIT 


#*XCHAR,LSW3<R1) 


BNE 


10* 



IS JOB CONNECTED TO TERMINAL? 

BR IF NOT < DON'T WAIT FOR OUTPUT) 

Get high-order time-of-day 

Get low-order time~of day 

Add time to allou) for logoff message 

Propogate carry 

Have we waited long enough? 

Br if yes 

Br if not 

Compare low-order time 

Br if have waited long enough 

GET PRIMARY LINE NUMBER 

IS PRIMARY LINE STILL LOGGED ON? 

BR IF NOT 

CLEAR CTRL-S SUSPEND 

MAKE SURE OUTPUT IS GOING 
Z<Rl)iANY CHARS LEFT TO TRANSMIT? 
;WAIT FOR ALL OUTPUT TO COMPLETE 
/ LSW10<R1 ); DHll buffer being transmitted? 
iWait for DHll to finish 
>Wait for last char to go out 



See if this is a primary or virtual line logging off. 



CMP 
BLE 



Rl, #LSTPL 
1* 



Log off a virtual line. 



?4*: 



DECS 


PVON 


MOV 


R1,R2 


MOVB 


SPIJ, R3 


BEQ 


22* 


BIT 


#*DISCN, LSW<R3) 


BNE 


22* 


MOV 


LNPRIM<R1),R0 


CMP 


R3, RO 


BEQ 


22* 


MOV 


LSECPT<R0).R0 


CLR 


R5 


INC 


R5 



i PRIMARY OR VIRTUAL LINE? 
; BR IF PRIMARY LINE 



Count # primary & virtual lines on 

Save virtual line number 

Get # of process that started us 

Br if unknown 

Is that process terminating now? 

Br if yes — Switch to primary 

Get our primary process # 

Switching back to primary 

Br if yes 

Get pointer to subprocess 

Init subprocess # 

Increment subprocess # 



process?" 
# table 



i 

I 

I 

I 

I 

i 
< 
I 

i 

i 



( 

I 

f 
I 



i 
I 
I 
t 
f 



TSEXC2 


— Misc 


. TSX-Pl 


us Execu MACRO V 


LOGOFF - 


— Log 


ff a job 




58 


004474 


020527 


0000000 


59 


004500 


101003 




60 


004502 


120320 




61 


004504 


001372 




62 


004506 


000407 




63 


004510 


005005 




64 


004512 


016103 


OOOOOOG 


65 


004516 


032763 


OOOOOOG OOOOOOG 


66 


004524 


001423 




67 


004526 


016203 


OOOOOOG 


68 


004532 


120163 


OOOOOOG 


69 


004536 


001003 




70 


004540 






71 








72 








73 








74 








75 








76 


004546 


005004 




77 


004550 


016305 


OOOOOOG 


78 


004554 


120225 




79 


004556 


001405 




80 


004560 


005204 




81 


004562 


020427 


OOOOOOG 


8i> 


004566 


0027/2 




S3 


004570 


000401 




84 


004572 


105045 




85 


004574 


005062 


OOOOOOG 


86 


004600 


010201 




87 


004602 


000464 




88 








89 








90 








91 








92 


004604 


105337 


OOOOOOG 


93 


004610 


105337 


OOOOOOG 


94 


004614 


013700 


000004G 


95 


004620 


001002 




96 


004622 


013700 


OOOOOOG 


97 


004626 


010061 


OOOOOOG 


98 


004632 


016161 


OOOOOOG OOOOOOG 


99 


004640 


010103 




100 


004642 


010161 


OOOOOOG 


101 








102 








103 








104 








105 


004646 


032761 


OOOOOOG OOOOOOG 


106 


004654 


001406 




107 


004656 


012761 


000012 OOOOOOG 


108 


004664 


052761 


OOOOOOG OOOOOOG 


109 








110 








111 








112 


004672 


016104 


OOOOOOG 


113 


004676 


001401 




114 


004700 


005014 
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all subprocess entries? 
IBS — Switch back to primary 
for originating process in table 
11 found 

iubprocess to switch back to (R5=#) 
22*: CLR R5 i Say we are switching to primary process 

imary line number 
primary line still logged on? 
lot 
23«: MOV LNPRIM(R2); R3 J Get primary process index 

running on line being logged off? 
lot — Someone must have killed us 
wacK to in3.txat:Lrig process 

At this point R3 has the primary line number. 

Rl & R2 have the virtual line number. 

Remove the virtual line from the primary line's ownership table. 



CMP 


R5, #MAXSEC 


, Checked 


BHI 


22* 


-Br if y 


CMPB 


R3, <R0) + 


. Search 


BNE 


24* 


Loop ti 


BR 


23* 


Found 5 


CLR 


R5 


Say we 


MOV 


LNPRIM(R1>,R3 


Get pri 


BIT 


#*DILUP,LSW<R3) 


Is the 


BEQ 


2* 


Br if n 


MOV 


LNPRIM(R2), R3 


Get pri 


CMPB 


R1,LNMAP<R3) 


Are we 


BNE 


6* 


Br if n 


OCALL 


LINSWT 


Switch 



6*: 
5*: 



3*: 
2*: 



CLR 


R4 


MOV 


LSECPT(R3) 


CMPB 


R2, (R5) + 


BEQ 


3* 


INC 


R4 


Cf^P 


R4, #MAXSEC 


BLT 


5* 


BR 


2* 


CLRB 


-<R5) 


CLR 


LNPRIM(R2) 


MOV 


R2i Rl 


BR 


4* 



R5 



CHECK 1ST VIRTUAL LINE ENTRY 

POINT TO TABLE OF VIRTUAL LINE #'S 

IS THIS THE VIRTUAL LINE ENTRY? 

BR IF YES 

CHECK NEXT ENTRY 

CHECKED ALL? 

BR IF MORE TO CHECK 

STRANGE — COULDN'T FIND VIRTUAL LINE 

SAY VIRTUAL LINE NOT OWNED BY PRIMARY LINE 

REMOVE PRIMARY LINE NUMBER FOR VIRTUAL LINE 

GET BACK VIRTUAL LINE NUMBER 



Disconnect a primary line. 

This forces the disconnect of any associated virtual lines. 



1*: 



21*; 



DECB 

DECB 

MOV 

BNE 

MOV 

MOV 

MOV 

MOV 

MOV 



# PRIMARY LINES ON 

# PRIMARY & VIRTUAL LINES ON 
Get time to drop DTR 
Br if time parameter specified 
Get sysgen specified time 
Drop DTR after this much time 

ILSW2<R1), LSW2<R1); Reset line status flags 

R1,R3 ; SAVE PRIMARY LINE NUMBER 

R1,LNMAP<R1) iREASSOCIATE TS LINE WITH PRIMARY LINE 



NUMON 

PVON 

EMTBLK+4, RO 

21* 

VOFFTM, RO 

RO, LOFFTM(Rl) 



If this is an autobaud line, start time which will reset the line 
speed to 9600 baud after a short delay to get the logoff message out. 

BIT #*AUTO, ILSW2(Rl>i Is autobaud selected for this line? 

BEQ 14* i Br if not 

MOV #10. >LABTIM(R1) ; Start autobaud timer for this line 

BIS #*NABRS, LSW9<R1 )> Set flag saying we need to reset the speed 

Reset all character translation for the line 



14*: 



MOV 


LCXTBL<R1),R4 


BEQ 


25* 


CLR 


(R4) 



; Get pointer to lines translation table 
; Br if no translation table 
i Say no translation in effect 



I 
I 
f 

f 
i 

i 



< 
t 

t 

4 
I 

f 

« 

I 
t 
4 
4 



I 
f 

< 

I 

I I 

I 

» 

c 
I 

4 
I 
( 

i 

I 



TSEXC2 
LOGOFF 


115 


116 


117 


lis 


119 


120 


121 


122 


123 


124 


125 


126 


127 


128 


129 


130 


131 


132 


133 


134 


135 


136 


137 


138 


139 


140 


141 


142 


143 


144 


145 


146 


147 


148 


149 


150 


151 


152 


153 


154 


155 


156 


157 


158 


159 


160 


161 


162 


163 


164 


165 


166 


167 


168 


169 


170 


171 
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004702 
004704 
004710 
004714 
004716 
004720 
004722 
004730 
004732 
004740 
004744 
004746 
004750 
004752 



004754 
004760 

004762 



004770 
004774 
004776 



005004 
005010 
005014 
005016 
005022 
005026 



005030 
005034 
005040 
005044 
005050 
005054 



005060 
005064 
005070 
005074 
005100 
005106 
005112 



005004 
016305 
020427 
002016 
111501 
001411 
032761 
001005 
052761 
004737 
105025 
005204 
000757 
010301 



005737 
001403 



005737 
001403 



012702 
026201 
001002 
005062 
162702 
003370 



016102 
016100 
004737 
005061 
005061 
005061 



004737 
005061 
005061 
005061 
042761 
005061 
012700 



Force disconnect of all associated virtual lines. 



OOOOOOG 
OOOOOOG 



OOOOOOG OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG 



25*: 
9*: 



OOOOOOG 



8*: 



7*: 



4*: 



CLR R4 

MOV LSECPT(R3),R5 

CMP R4, #MAXSEC 

BGE 7* 

MOVE (R5),R1 

BEQ 8« 

BIT #*LOFCF, LSW9(R1) 

BNE 8* 

BIS #*DISCN, LSW(Rl) 

CALL FORCEX 

CLRB (R5)+ 

INC R4 

BR 9* 

MOV R3iRl 



START WITH 1ST VIRTUAL LINE 

GET ADDRESS OF VIRTUAL LINE TABLE 

CHECKED ALL VIRTUAL LINE ENTRIES 

BR IF YES 

GET VIRTUAL LINE NUMBER 

BR IF NO ASSOCIATED VIRTUAL LINE HERE 

IS JOB DOING LOGOFF PROCESSING NOW? 

BR IF YES 

FORCE LOG OFF OF THIS VIRTUAL LINE 

FORCE ITS EXECUTION 

CLEAR ENTRY IN PRIMARY LINE'S TABLE 

CHECK NEXT ENTRY 



iGET BACK PRIMARY LINE NUMBER 
Release any display windows for job 



TST 
BEQ 
OCALL 



VMXWIN 

20* 

WINREL 



Do cleanup of PLAS regions 



OOOOOOG 



20$: 



TST 


VPLAS 


BEQ 


17* 


OCALL 


PLSOFF 



OOOOOOG 
OOOOOOG 

OOOOOOG 
000002 



i 

; Say 


we are 


no other job 's 


> 
17*: 


MOV 


#LSTSLi R2 


18*: 


CMP 


LPARNT<R2),R1 




BNE 


19* 




CLR 


LPARNT<R2) 


19*: 


SUB 


#2, R2 




BGT 


18* 



> Is window support included in system? 

i Br if not 

^Release windows for job 



i Is PLAS support included? 

i Br if not 

; Do PLAS cleanup 



Get # of last job 

Are we that job's parent? 

Br if not 

No longer its parent 

Check other jobs 



Free all memory assigned to the job. 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOC OOOOOOG 

OOOOOOG 

OOOOOOC 



MOV 


LBASE(Rl), 


R3 


MOV 


LNBLKS<R1) 


, RO 


CALL 


FREMEM 




CLR 


LNBLKS<R1) 




CLR 


LMEMIN(Rl) 




CLR 


LBASE(Rl) 





GET BASE PAGE # ASSIGNED TO JOB 
GET # PAGES ASSIGNED TO JOB 
RELEASE THE MEMORY SPACE 
SAY ALL MEMORY DEASSIGNED 



Now clear line tables. 



J REMOVE JOB FROM RUN QUEUE «* DISABLE «^* 
i CLEAR LINE STATUS TABLES 



CALL DEQ 

CLR LSW(Rl) 

CLR LSW4(R1) 

CLR LSW5<R1) 

BIC #-^C<*lSTLG>, LSW6<:Rl)i CLEAR ALL BUT IST-LOGON FLAG 

CLR LSW7<R1) 

MOV #<*DEAD!*HARD!*CARUP!*XCHAR>,RO ; FLAGS TO PRESERVE IN LSW3 



i 
I 
ff 

I 

i 

i 



€ 

i 
i 
I 
< 
t 
i 
I 
{ 



TSEXC2 


— Misc 


. TSX-Pl 


us Execu 


LOGOFF - 


— Log o 


ff a job 




172 


005116 


005100 




173 


005120 


040061 


ooooooe 


174 


005124 


005061 


OOOOOOG 


175 


005130 


005061 


OOOOOOG 


176 


005134 


105337 


OOOOOOG 


177 


005140 


120137 


OOOOOOG 


178 


005144 


001004 




179 


005146 


005037 


OOOOOOG 


180 


005152 


005037 


OOOOOOG 


181 








182 








183 








184 








185 


005156 


012706 


OOOOOOG 


186 


005162 


105037 


OOOOOOG 


187 


005166 






188 


005174 


105037 


OOOOOOG 


189 


005200 


000137 


OOOOOOG 
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COM 


RO 


BIG 


RO, LSW3<R1 


CLR 


LPARNKRl) 


CLR 


LNSPAC<R1) 


DECB 


TOTON 


CMPB 


Rli PMUSER 


BNE 


13* 


CLR 


PMUSER 


CLR 


PMRUN 



Job is logged off. 
Enter scheduler to find 



13*: 



MOV 


#SS, SP 


CLRB 


CORUSR 


ENABL 




CLRB 


MAPUSR 


JMP 


EXEC 



: MASK TO CLEAR ALL OTHERS 

; Say we have no parent job 

i Say no user-defined activation characters 

; TOTAL # JOBS 

; ARE WE DOING A PERFORMANCE ANALYSIS? 

} BR IF NOT 

iSAY WE ARE DONE 



another one to run. 



SWITCH TO SYSTEM STACK 

NO USER RUNNING 

** ENABLE #* 

SAY MEMORY MAPPING NOT SET UP FOR ANY JOB 

GO LOOK FOR ANOTHER JOB TO RUN 



( 

i 
€ 

i 

( 
I 
I 
4 



I 

i 



i 
i 

i 

« 

i 
I 
f 
t 
f 



i 
i 
i 
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21 
22 
23 



1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 

15 005204 

16 005210 

17 005216 

18 005220 

19 005224 

20 005230 
005232 
005236 
005240 

24 005244 

25 005246 

26 005252 

27 005254 

28 005260 

29 005262 
30 

31 
32 
33 

34 005266 

35 005272 

36 005300 

37 005302 

38 005304 

39 005310 
40 

41 
42 
43 

44 005314 

45 005320 

46 005322 
47 

48 
49 

50 005340 

51 005344 

52 005346 
53 

54 
55 

56 005352 

57 005356 



. SBTTL TSXTX — Trap Handier 

TSXTX is entered from the resident routines that catch traps to 4 and 10. 

Inputs: 

The following items are on the stack: 
0<SP) = Saved R5 
2<SP) = Saved R4 
4(SP) = Trap PC 
6(SP) = Trap PS 



R5 



= Trap code <l==>Trap 4, 2==>Trap 10) 



aee if trap occured in user or kernel mode. 



016604 
032766 
001036 
012705 
105737 
001416 
005737 
001013 
105737 
001010 
105737 
002005 
105737 
001002 
000137 



000004 
OOOOOOG 

000016 
OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

005546' 



TSXTX: 



000006 



MOV 


4(SP).R4 


BIT 


#UMODE, 6(SP) 


BNE 


1* 


MOV 


#16. R5 


TSTB 


CORUSR 


BEQ 


6« 


TST 


CURVC 


BNE 


6* 


TSTB 


FRKPRI 


BNE 


6* 


TSTB 


INTLVL 


BGE 


6« 


TSTB 


VDMKTP 


BNE 


6$ 


JMP 


TRPCOM 



GET ADDRESS OF TRAP 

DID TRAP OCCUR IN USER OR KERNEL MODE? 

BR IF TRAP IN USER MODE 

SET KERNEL-MODE-TRAP ERROR CODE 

IS A JOB RUNNING NOW? 

IF NOT THEN TRAP MUST BE IN SYSTEM 

IN REAL-TIME INTERRUPT SERVICE ROUTINE? 

BR IF YES 

IN A FORK ROUTINE? 

BR IF YES 

ARE WE RUNNING AT INTERRUPT LEVEL? 

BR IF YES 

SHOULD WE ALWAYS CRASH ON KERNEL TRAP? 

BR IF YES 

ALWAYS ABORT IF KERNEL MODE TRAP 



010437 
012737 
012605 
012604 
062706 
004737 



OOOOOOG 
000170 



000004 
OOOOOOG 



We had a trap tuithin a critical system routine. 
Cause a system crash. 

6*: MOV R4, DIEARG ; Set address of trap location 
OOOOOOG MOV #EM*KTP. DIEMSG i Set address of abort message 

Restore R5 
Restore R4 
Pop trap PC and PS 
Die without changing TRPAR5 

Trap in user mode. 

See if user was executing a real-time interrupt service routine. 



MOV 


R4, DIEARG 


MOV 


#EM*KTP. DIEMSG 


MOV 


<SP)+, R5 


MOV 


<SP)+, R4 


ADD 


#4, SP 


CALL 


SYSHLl 



005737 
001407 



OOOOOOG 



1$: 



TST CURVC 

BEQ 7* 

DIE #EM*RIT, R4 



ARE WE EXECUTING IN A REAL-TIME INT ROUTINE? 

BR IF NOT 

TRAP IN REAL-TIME INTERRUPT SERVICE ROUTINE 



See if a stack overflow occured. 



004737 
103002 
000137 



005737 
001010 



OOOOOOG 
005732 ' 

OOOOOOG 



7*: 



CALL 


CHKUSP 


BCC 


2* 


JMP 


ABORT 



See if user did a . TRPSET 



2*: 



TST 
BNE 



UTRPAD 

3* 



IS USER STACK POINTER OK? 
BR IF OK 
ABORT JOB 



; DID USER DO A . TRPSET? 

i BR IF YES 



f 

f 

I 

i 



i 

€ 
I 

i 
i 
C 

( 
I 

4 
I 
I 

( 





TSEXC2 


— Misc 


. TSX-Pl 


us Execu MACRO 




TSXTX - 


— Trap 


Handler 






58 


005360 


012704 


000004 




59 


005364 


020527 


000001 




60 


005370 


001466 






61 


005372 


012704 


000010 




62 
63 

64 


005376 


000463 






65 










66 


005400 


004737 


OOOOOOG 


} . 


67 








) ' 


68 


005404 


106506 




1 


69 


005406 


012604 






70 


005410 


016646 


000006 


9 J 


71 


005414 


106644 






72 


005416 


016646 


000004 




73 


005422 


106644 




1 < 


74 


005424 


010446 




) 


75 


005426 


106606 






76 










77 
78 










79 


005430 


012704 


OOOOOOC 




80 


005434 


020527 


000002 




81 


005440 


001001 






82 


005442 


005204 






83 


005444 


010466 


000006 




84 


005450 


013766 


OOOOOOG 000004 




85 


005456 


005037 


OOOOOOG 




86 


005462 


012605 






87 


005464 


012604 




I ' 


88 


005466 


000002 





i 
I 
I 
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MOV 


#4, R4 


CMP 


R5, #1 


BEQ 


TRPCOM 


MOV 


#10, R4 


BR 


TRPCOM 


User did a 


. TRPSET 



3$: CALL CHKABT 
; Move trap PC Z< PS from kernel 
MFPD SP 



MOV 


(SP)+, R4 


MOV 


6(SP),-(SP) 


MTPD 


-<R4) 


MOV 


4(SP), -(SP) 


MTPD 


~(R4) 


MOV 


R4, -(SP) 


MTPD 


SP 



Enter user's .trpset routine. 



4*: 



MOV 


#UMODE!UPMODE, 


CMP 


R5, #2 


BNE 


4* 


INC 


R4 


MOV 


R4, 6(SP) 


MOV 


UTRPAD. 4(SP) 


CLR 


UTRPAD 


MOV 


(SP)+, R5 


MOV 


(SP)+, R4 


RTI 





SET TRAP VECTOR ADDRESS TO 4 
DID WE GET TRAP TO 4 OR 10? 
BR IF TRAP 4 

SET TRAP VECTOR ADDRESS TO 10 
GO DO COMMON TRAP HANDLING 



MAKE SURE JOB HASN'T BEEN ABORTED 
stack to user's stack. 
GET USER'S SP 

PUSH TRAP PS ON USER'S STACK 

PUSH TRAP PC ON USER'S STACK 

STORE UPDATED USER SP 



GET USER -MODE PS 

WAS TRAP TO 4 OR 10? 

BR IF TRAP TO 4 

SET C-FLAG IN PS TO SIGNAL TRAP TO 10 

STORE NEW PS OVER TRAP PS 

SET ADDRESS OF USER'S ROUTINE 

RESET . TRPSET 



ENTER USER'S TRAP ROUTINE 



I 
I 






{ 
f 
f 

t 

< 
I 
t 

< 



i 
t 
f 



TSEXC2 
TSXTX 
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\ 

.A 



(h 



'Y^'' 



3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 



005470 



005470 032764 
005476 001004 



005500 106537 
005504 005726 
005506 001011 



0000000 0000000 



TRPBP I is entered uhen a breakpoint <BPT) trap occurs to location 14 
and the system debugger is not connected to the user's job. 

Inputs: 

R4 = Job index number 
Information that has been pushed on the stack: 

PS-PC-R4 

TRPBPT: 

If breakpoint occurred in TSKMON* enter debugger 

BIT #*INKHN. LSW4<R4); Is kmon running? 
BNE 1* i Br if yes 



See if user provided a PC in location 14 



000014 



MFPD 


@#14 


TST 


<SP) + 


BNE 


9* 



005510 
005514 
005516 
005524 
005526 



005532 
005534 
005540 
005544 



105737 
001406 
052764 
012604 
000137 



010546 
012705 
012704 
000400 



0000000 

OOOOOOG OOOOOOG 
OOOOOOG 



1*: 



; Get contents of loc 14 from user's job 
iDid user provide a PC for trap? 
i Br if yes 

User did not provide a PC for trap. 
Enter system debugger. 

TSTB VDBFLG ;Is system debugger included in system? 

BEQ 9* i Br if not 

BIS #*DBGBK. LSW9<R4); Set flag to force entry to debugger 

MOV (SP)+, R4 ; Restore R4 

JMP SYSXIT iExit through routine that will test flag 

User provided a PC for BPT trap* enter his routine. 



9*: 



000012 
000014 



MOV 
MOV 
MOV 
BR 



R5i -<SP) 
#12. R5 
#14, R4 
TRPCOM 



i Get error code 

J Get trap location 

i Enter trap processing routine 



I 
I 
f 

I 

I 

i 



I 
( 
c 
i 



4 
I 
€ 

( 

( 

4 
( 

{ 

i 



TSEXC2 
TSXTX - 

1 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 
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005546 010146 



005550 
005556 
005560 
005566 
005570 
005572 
005576 
005600 
005604 
005612 
005614 
005616 
005620 



005626 
005630 
005632 
005636 
005640 
005644 
005646 
005650 



005652 
005654 
005660 
005664 
005666 
005672 
005674 
005676 
005700 



005702 
005704 
005710 



General trap handling routine. 

Inputs: 
R4 = Address of trap vector. 
R5 = Error message number. 

If user provided a PC & PS in the user-mode trap vector* then uie enter 
his routine. Otherwise we abort the job. 



TRPCDM: MOV 



R 1 , - < SP ) 



At this point the stack contains PS. PC, R4, R5, and Rl 



032766 
001005 
032737 
001046 
000456 
004737 
103453 
113701 
032761 
001045 
106524 
005726 
001430 



004737 OOOOOOe 



106506 
012605 
016646 
106645 
016646 
106645 
010546 
106606 



OOOOOOG 000010 
0000000 OOOOOOG 

OOOOOOG 

OOOOOOG 
OOOOOOG OOOOOOG 



4*: 



User 



Move 



000010 
000006 



BIT 


#UMODE, 8. ( SP ) 


BNE 


4* 


BIT 


#D*RUN, D. FLAG 


BNE 


3« 


BR 


2* 


CALL 


CHKUSP 


BCS 


2* 


MOVE 


CORUSR.Rl 


BIT 


#*INKMN, LSW4(R1 


BNE 


2* 


MFPD 


(R4) + 


TST 


(SP) + 


BEQ 


1* 


supplie 


d a PC. 


CALL 


CHKABT 


trap PC 


& PS from kerne 


MFPD 


SP 


MOV 


(SP)+, R5 


MOV 


8. (SP), -<SP) 


MTPD 


-(R5) 


MOV 


6(SP),-<SP) 


MTPD 


-<R5) 


MOV 


R5, -<SP) 


MTPD 


SP 



; DID TRAP OCCUR IN USER OR KERNEL MODE? 
i Br if in user mode 

» Is the debugger program running now? 
i Br if yes — reenter the debugger 
i Trap occurred within the system 
} SEE IF USER STACK POINTER IS OK 
; BR IF INVALID STACK POINTER 
i GET CURRENT JOB NUMBER 
)iDID TRAP OCCUR IN KMON? 
; ALWAYS ABORT IF YES 
; GET PC FROM USER SPACE 
;DID USER PROVIDE PC? 
i BR IF NOT — ABORT THE JOB 

;MAKE SURE JOB HASN'T BEEN ABORTED 
1 stack to user stack. 
; GET USER 'S SP 

;GET PS FROM TRAP 
;PUSH ONTO USER'S STACK 
; GET PC FROM TRAP 
;PUSH ONTO USER'S STACK 
i UPDATE USER 'S SP 



Enter user's trap routine 



106514 
052716 
012666 
106544 
012666 
012601 
012605 
012604 
000002 



OOOOOOC 
000010 

000006 



MFPD 

BIS 

MOV 

MFPD 

MOV 

MOV 

MOV 

MOV 

RTI 



<R4) iGET PS FROM 

#UMODE ! UPMODE, ( SP ) ; MAKE SURE 



TRAP VECTOR 
USER -MODE IS 



SET 



<SP)+, 8. <SP) 
-(R4) 

(SP)+, 6<SP) 
(SP)+, Rl 
(SP)+, R5 
(SP)+, R4 



STORE OVER TRAPPED PS 
GET PC FROM TRAP VECTOR 
STORE OVER TRAPPED PC 

RESTORE REGISTERS 

ENTER USER'S TRAP ROUTINE 



User did not specify a trap routine. 

If program is running with the debugger, enter it. 



005004 
113701 
032761 



1*: 
OOOOOOG 3*: 

OOOOOOG OOOOOOG 



CLR 

MOVE 

BIT 



R4 i Set flag saying trap was not in debugger 

CORUSR.Rl iGet job index number 

#*DEBUG, LSW9<R1 ); Is program running with debugger? 



I 
I 
< 
( 
« 
t 
I 

I 

4 

i 
I 
I 
4 

{ 
I 
f 



i 



I 

c 



I 
I 

! 

> I 



i 

> 
I 

f 

C 

< 

I 

I * 
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( 

t 

i 
i 



TSEXC2 
TSXTX 



58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
6S 
69 
70 
71 
72 
73 
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005716 001403 
005720 012601 
005722 000137 OOOOOOG 



005726 016604 000006 



005732 010437 OOOOOOG 
005736 110537 OOOOOOG 
005742 004737 002760 ' 



BEQ 


2$ 


; Br if not 


MOV 


(SP)+, Rl 


/Recover Rl 


JMP 


DBGTRP 


; Enter debugger 



i Abort the job 

i 

2*: MOV 6(SP),R4 



; GET PC WHERE TRAP OCCURED 



Enter at ABORT to abort the current job. 
Inputs: 

R4 = Address of aborted instruction. 

R5 = Abort error code. 



ABORT: 



MOV 

MOVB 

CALL 



R4, ABRTAD 
R5/ ABRTCD 
STOP 



SAVE ADDRESS OF ABORT 
SAVE ABORT ERROR CODE 
TERMINATE THE JOB 



I 



I 

c 

« 
i 
t 
I 
( 
C 
« 

I 
I 



I 
t 

€ 
f 

i 

i 

i 

i 

i 

i 



OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 

OOOOOOG 000001 
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1 
2 
3 
4 
5 
6 
7 
8 
9 

10 00S746 052737 

11 005754 042761 

12 005762 012601 
J uu5/o4 KJdJ/S/ 

14 005772 101004 

15 

16 

17 

18 005774 012705 000005 

19 006000 011604 

20 006002 000753 
21 
22 
23 
24 

25 006004 004737 OOOOOOG 

26 006010 103002 

27 006012 011604 

28 006014 000746 

29 006016 010346 

30 006020 106506 

31 006022 012603 

32 006024 016646 000004 

33 006030 106643 

34 006032 016646 000002 

35 006036 106643 
36 
37 
38 

39 006040 032737 

40 006046 001407 

41 006050 170346 

42 O06052 106663 

43 006056 106663 

44 006062 162703 
45 
46 
47 

48 006066 010346 3*: 

49 006070 106606 

50 006072 012603 
51 
52 
53 
54 
55 
56 
57 006074 
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f 



. SBTTL FPTRPX 



Floating point trap routine 



FPTRPX processed Floating Point Unit (FPU) exception interrupts. 

This routine is jumped to when u>e are about to exit from an interrupt 

back to user mode. 

On entry* the current job index number is in Rl. 

The saved convents of Rl are on the top of the stack followed by the 

interrupt PC and PS ready to do an RTI. 



FPTRPX: BIS 
BIC 
MOV 
CMP 
BHI 



#UPMODE* e#PSW iMake sure previous mode = user 
#*FPUEX,LSW(R1) ; Reset FPU exception flag for job 



(SP)+, Rl 

UFPTRP,#1 

1* 



i Recover Rl contents 
j Did user do a . SFPA' 
i Br if yes 



User did not do a . SFPA. Abort the job. 



MOV 
MOV 
BR 



#5, R5 
(SP), R4 
ABORT 



i Set abort code 

i Get address of aborted instruction 

i Abort the job 



User gets trap control. 

Push trap PC ic PS onto u&er's stack 



1*: 



2*: 



CALL 


CHKUSP 


BCC 


2$ 


MOV 


( SP ) , R4 


BR 


ABORT 


MOV 


R3, -(SP) 


MFPD 


SP 


MOV 


(SP)+, R3 


MOV 


4(SP),-(SP) 


MTPD 


-(R3) 


MOV 


2(SP),-(SP) 


MTPD 


-(R3) 



See if hardware has a FPU 



OOOOOOG OOOOOOG 



177774 
177776 
000004 



BIT 


#CW*FPU, CONFIG 


BEQ 


3* 


STST 


-(SP) 


MTPD 


-4(R3) 


MTPD 


-2(R3) 


SUB 


#4, R3 



IS USER'S STACK POINTER OK? 

BR IF OK 

GET ADDRESS WHERE TRAP OCCURED 

ABORT THE JOB 

GET A WORK REGISTER 

GET USER'S STACK POINTER 

GET TRAP PS 

PUSH ONTO USER'S STACK 

GET TRAP PC 

PUSH ONTO USER'S STACK 



; DOES HARDWARE HAVE AN FPU UNIT? 

; BR IF NOT 

i GET FPU STATUS 

i MOVE FPU STATUS ONTO USER'S STACK 



Reset user's SP 



MOV 

MTPD 

MOV 



R3, -(SP) 
SP 
(SP)+, R3 



i UPDATE USER'S SP 



NEW USER SP 
RESET USER SP 
RESTORE WORK REGISTER 



Enter user's trap routine 

Note, when user's trap routine does an RTI. it will transfer 
control to the point we would have exited to if the FPU trap hadn't 
have occurred. 



013716 OOOOOOG 



MOV 



UFPTRP. (SP) 



i SET PC FOR TRAP ROUTINE 



t 
I 
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58 006100 012766 OOOOOOC 000002 MOV #UMODE lUPMQDE, 2( SP ) > SET PS 

59 006106 012737 000001 OOOOOOG MOV ttl.UFPTRP i RESET . SFPA TO AVOID REENTRENCY 

60 006114 000002 RTI i ENTER USER'S TRAP ROUTINE 
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TSEXC2 — Misc 
CLKRUN -~ Clock 

1 
2 
3 
4 
5 

6 006116 

7 006122 

8 006124 
9 

10 

11 

12 006130 

13 

14 

1 B! 
J. \J 

16 006134 

17 006140 

18 006142 

19 006150 
20 

21 
22 
23 006154 
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processing routine 

. SBTTL CLKRUN — Clock processing routine 

CLKRUN is the clock interrupt service routine entered from TSEXEC 
running at fork level. 



013703 OOOOOOG 

005203 

010337 OOOOOOG 



004737 006432 



113701 OOOOOOG 

001405 

063761 OOOOOOG OOOOOOG 

005561 OOOOOOG 



004737 010264' 



CLKRUN: MOV 
4*: INC 

MOV 



TIKCNT, R3 

R3 

R3. CLKCNT 



Keep track of time of day 
CALL CLKDAT 



GET # CLOCK TICKS THAT HAVE OCCURED 
CONVERT TO ACTUAL NUMBER (STARTED AT -1 ) 
ADVANCE ALL TIMERS BY THIS AMOUNT 



; ADVANCE TIME-OF-DAY AND DATE 



27 006160 

28 

29 

30 

31 006164 

32 006170 

33 006172 

34 006176 
35 

36 
37 

38 006202 

39 006206 

40 006210 
41 

42 
43 
44 

45 006214 

46 006220 

47 006222 

48 006226 

49 006230 

50 006232 
51 

52 
53 
54 
55 

56 006240 

57 006244 



004737 010164' 



005737 OOOOOOG 

001404 

005037 OOOOOOG 

004737 011024' 



005737 OOOOOOG 

00 1 402 

004737 010614' 



Keep track of time used by currently running job (if any) 

MOVB C0RUSR,R1 ; GET INDEX # OF CURRENTLY RUNNING JOB 

BEQ 3* ; BR IF NO JOB RUNNING NOW 

ADD CLKCNT, LCPULO(Rl)i ACCUMULATE RUN~TIME FOR JOB 

ADC LCPUHKRl) ; PROROGATE CARRY 

Check on . MRKT and .TIMID requests 
3*: CALL CKMRKT J Check on .MRKT and .TIMID requests 

ChecK on jobs doing .TWAIT's 

CALL CKTWAT .: Check on jobs doing .TWAIT's 

Check on job output buffer scheduling requests 



TST 
BEQ 
CLR 
CALL 



NEDSOT 

NEDSOT 
CKSCHD 



jQutput scheduling needed? 

; Br if not 

i Say output scheduling done 

; Do job scheduling for output buffer low 



See if tue need to do performance monitoring. 



8*: 



TST 
BEQ 
CALL 



PMRUN 

2* 

CLKPM 



IS PERFORMANCE MONITORING TO BE DONE? 

BR IF NOT 

DO PERFORMANCE MONITORING 



If we are running on a Professional, call the PI output service 
routine every 20th of a second. 



013700 OOOOOOG 

001407 

005337 001340' 

003004 

004710 

012737 OOOOOOG 001340 



2*: 



MOV 

BEQ 

DEC 

BGT 

CALL 

MOV 



PIDPTR,RO 

6* 

PROTIM 

6* 

(RO) 



; Are we running on a Pro? 

i Br if not 

i Time to call PI driver? 

i Br if not 

iCall PI output driver 



#PROODC, PROTIM ; Reset time counter 



Do clock driven processing of serial lines. 

We do this as a lower priority fork request sines this processing 

could be lengthy. 



005737 OOOOOOG 
001417 



6*: 



TST 
BEQ 



NEDCDI 

5* 



i Input character processing needed? 
; Br if not 



t 
I 
I 

< 

I 

€ 

I 
I 
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58 006246 

60 006254 

61 006260 

62 006264 

63 006272 

64 006300 

65 006304 

66 006310 

67 006312 

68 006316 

69 006320 

70 006324 

71 006330 

72 006336 

73 006344 
74 

75 
76 
77 

78 006350 

79 006356 
SO 006360 

81 006366 

82 006372 

83 006374 

84 006400 

85 006406 

86 006414 
87 

88 
89 

90 006420 

91 006426 

92 006430 



105737 OOOOOOG 

\JKJ J, V i •+ 



105237 
004737 
112764 
013764 
004737 
005737 
001417 
105737 
001014 
105237 
004737 
112764 
013764 
004737 



063737 
005237 
003012 
004737 
112764 
012764 
004737 



163737 
002233 
000207 



OOOOOOG 

ooooooe 

OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOG 
OOOOOOG 

OOOOOOG 

OOOOOOG 
OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOG 



5*: 



TSTB CDIFLG 

BNE 5$ 

INCB CDIFLG 

CALL FRKGET 

MOVE #FP*CDI,FQ*PR 

MOV CDIRTN, FQ*RTN 

CALL FORKQ 

TST NEDCDO 

BEQ 7* 

TSTB CDOFLG 

BNE 7* 

INCB CDOFLG 

CALL FRKGET 

MOVB #FP*CDO, FO*PR 

MOV CDORTN, FQ*RTN 

CALL FORKQ 



} Are we 
* Br i f 
;Set fl 
; Get a 
I(R4)i Set 
<R4)}Set a 
Queue 
Output 
Br if 
Are we 
Br if 
Say ou 
Get a 
I<R4)i Set 
(R4); Set a 
i Queue 



still doing input char processing? 
yes 

ag saying processing is being done 
fork request block 
low priority for fork request 
ddress of routine to call 
the fork request 

character processing needed? 
not 

still doing output char processing? 
yes 

tput processing being done 
fork request block 
priority for fork request 
ddress of routine to call 
the fork request 



Processing done on 0. 
This is also done by 



1 second frequency. 

queueing a lower priority fork request. 



163737 OOOOOOG OOOOOOG 7*: 
003020 



OOOOOOG OOOOOOG 
001342' 

OOOOOOG 

OOOOOOG OOOOOOG 
007172' OOOOOOG 
OOOOOOG 



OOOOOOG OOOOOOG 1*. 



SUB CLKCNT, TKICNT 

BGT 1* 

ADD TKIVAL, TKICNT 

INC TIKOIS 

BGT 1« 

CALL FRKGET 

MOVB #FP*CK1.FQ*PRI<R4>.. Set 

MOV #CLK01S, FQ*RTN<R4); Set 

CALL FORKQ i Queue 



Has 0. 1 seconds of time passed? 

Br if not 

Reset 0. 1 counter 

Say another 0. 1 seconds has 

Br if haven't finished last 
fork request block 
low priority for fork 
address of routine to 
the fork request 



I 
< 
I 

I 

i 
f 



Get a 



elapsed 

0. 1 sec routine 

request 
be called 



c 
f 

i 



Finished clock processing 

SUB CLKCNT, TIKCNT 
BGE CLKRUN 
RETURN 



SUBTRACT # CLOCK TICKS ACCOUNTED FOR 
BR IF WE NEED TO CYCLE AGAIN 
FINISHED 



» i 



\i 
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006452 
006460 
006462 
006470 



3 

4 

5 

6 

7 

8 

9 
10 
11 
12 

13 006432 

14 006434 

15 006436 
16 

17 
18 

19 006440 

20 006446 
21 

22 
23 
24 
25 
26 
27 
28 
29 
30 

31 006472 

32 006500 

33 006504 

34 006510 

35 006512 

36 006514 

37 006520 

38 006524 

39 006526 

40 006532 

41 006536 

42 006542 

43 006544 

44 006550 

45 006554 

46 006556 

47 006562 

48 006564 

49 006566 

50 006570 

51 006572 

52 006576 

53 006600 

54 006604 

55 006606 

56 006612 

57 006614 



010146 
010246 
010346 



063737 
005537 



023737 
103465 
023737 
103461 



163737 
005037 
013700 
001451 
010003 
042703 
072027 
010001 
042700 
072127 
042701 
005200 
116102 
020127 
001004 
032703 
001001 
005202 
020002 
101411 
012700 
005201 
020127 
101403 
012701 
005203 
072027 



. SBTTL CLKDAT 



update time of day and date 



CLKDAT is the timer subroutine called to keep track of the current 
time-of-day and date. 



Inputs: 
CLKCNT 



# clock ticks to account for. 



Outputs: 
SYTIML & SYTIMH = Updated time of day. 
SYSDAT = Updated date. 



CLKDAT: MOV 
MOV 
MOV 



R 1 , - < SP ) 
R2, -<SP) 
R3, -<SP) 



OOOOOOG OOOOOOG 
0000000 



OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 



Advance system time counter. 

ADD CLKCNT, SYTIML 
ADC SYTIMH 



; ADD TO LOW-ORDER WORD 
} PROPOGATE CARRY 



See if we need to do a date roll-over. 



CMP 


SYTIMH, DAT I MH 


BLO 


9* 


CMP 


SYTIML, DATIML 


BLO 


9* 



Do a date roll-over. 



OOOOOOG OOOOOOG 

OOOOOOG 

OOOOOOG 



177740 
177773 

177740 
177773 
177740 

001321 ' 
000002 

000003 



5*: 



000001 
0000 1 4 
000001 
000005 



6$: 



SUB 


DATIML, SYTIML J 


CLR 


SYTIMH 


MOV 


SYSDAT, RO ) 


BEQ 


9* ; 


MOV 


RO, R3 ; 


BIC 


#'^C<37>, R3 


ASH 


#-5, RO i 


MOV 


RO, Rl 


BIC 


#'^C<37>, RO i 


ASH 


#-5, Rl ; 


BIC 


#-^C<37>, Rl ; 


INC 


RO ; 


MOVB 


M0NDAY-1(R1),R2 i 


CMP 


Rl,#2 ; 


BNE 


5* i 


BIT 


#3, R3 i 


BNE 


5* i 


INC 


R2 ; 


CMP 


RO, R2 i 


BLOS 


6« ; 


MOV 


#1,R0 ; 


INC 


Rl ; 


CMP 


Rl,#12. ; 


BLOS 


6* i 


MOV 


#1,R1 ; 


INC 


R3 i 


ASH 


#5, RO i 



i COMPARE HIGH-ORDER TIME VALUE 
; BR IF NOT UP TO 24 HOURS YET 
i COMPARE LOW-ORDER TIME 
; BR IF NOT THERE YET 



RESET SYSTEM TIMER RELATIVE TO START OF DAY 

GET SYSTEM DATE VALUE 

BR IF NO DATE WAS ENTERED 

GET YEAR FIELD 

i RIGHT JUSTIFY DAY # 

GET DAY # ONLY 

RIGHT JUSTIFY MONTH VALUE 

GET MONTH VALUE ONLY 

INCREMENT CURRENT DAY NUMBER 

GET # DAYS IN CURRENT MONTH 

IS THIS FEBRUARY? 

BR IF NOT 

IS THIS A LEAP YEAR? 

BR IF NOT 

SAY FEB HAS 29 DAYS 

HAVE WE PASSED LAST DAY IN THIS MONTH? 

BR IF NOT 

RESET DAY # TO 1 

ADVANCE MONTH NUMBER 

Dm ucr . II icT AnuAwrp pact ncmeMnprorf 

BR IF NOT 

RESET MONTH TO JANUARY 

ADVANCE YEAR NUMBER (HAPPY NEW YEAR) 

POSITION DAY # VALUE 



I 
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58 006620 050003 

60 006626 050103 

61 006630 010337 0000000 

62 i 

63 ; 

64 ; 

65 006634 012603 9«: 

66 006636 012602 

67 006640 012601 

68 006642 000207 
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BIS 


RO, R3 


ASH 


#10. ,Ri 


BIS 


R1,R3 


MOV 


R3, SYSDAT 


inished 




MOV 


<SP)+, R3 


MOV 


(SP)+, R2 


MOV 


(SP)+,R1 


RETURN 





iOR INTO YEAR WORD 

i POSITION MONTH # 

i COMBINE DATE VALUES 

; SAVE UPDATED DATE VALUE 



t 



i 

€ 

f 

f 
i 

c 
I 



TSEXC2 


— Misc 


. TSX-Pl 


us Execu 


CLKJOB - 
1 


— check 


time si 


ice job 


2 
3 
4 








5 








6 


006644 


010146 




7 


006646 


010246 




8 








9 








10 








11 


006650 


113701 


OOOOOOG 


12 


006654 


001543 




13 








14 








15 








16 


006656 


005261 


OOOOOOG 


17 








18 








19 








20 








21 


006662 


016100 


OOOOOOG 


22 


006666 


116102 


OOOOOOG 


23 


006672 


120237 


OOOOOOG 


24 


006676 


103412 




25 


006700 


020037 


OOOOOOG 


26 


006704 


101527 




27 


006706 


005737 


OOOOOOG 


28 


006712 


001524 




29 


006714 


004037 


OOOOOOG 


30 


006720 


OOOOOOG 




31 


006722 


000411 




32 


006724 


120237 


OOOOOOG 


33 


006730 


101015 




34 


006732 


020037 


OOOOOOG 


35 


006736 


101512 




36 


006740 


004037 


OOOOOOG 


37 


006744 


OOOOOOG 




38 








39 








40 








41 








42 


006746 


016100 


OOOOOOG 


43 


006752 


004737 


OOOOOOG 


44 


006756 


005061 


OOOOOOG 


45 


006762 


000500 




46 








47 








48 








49 








50 








51 


006764 


005761 


OOOOOOG 


52 


006770 


001407 




53 


006772 


005361 


OOOOOOG 


54 


006776 


001004 




55 


007000 


004037 


OOOOOOG 


56 


007004 


OOOOOOG 




57 


007006 


000464 
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SBTTL CLKJOB 



check time slice job status 



CLKJOB is the timer subroutine called every 0. 1 seconds to check for 
time-slice expiration of the currently running job. 



CLKJOB: MOV 
MOV 



R 1 . - < SP ) 
R2, -<SP) 



See if there is a job currently executing 



MOVB 
BEQ 



C0RUSR,R1 
3* 



; GET INDEX # FOR CURRENTLY RUNNING JOB 
i BR IF NO JOB RUNNING NOW 



10*: 



Increment time quantum for job 

INC LQUAN(Rl) i Increment time quantum for job 

Check for time slice expiration for fixed-priority real-time 
and low priority jobs. 

Get current time quantum for job 

Get job's execution priority 

Is this a high priority (real time) job? 

Br if not 

Have we exceeded QUANO time? 

Br if not 

Are we doing time slicing for real-time jobs? 

Br if not 

Signal that QUANO expired 

Requeue the job at the tail of the list 

Is this a low priority job? 

Br if not 

Exceeded low priority quantum? 

Br if not 

Signal that QUAN3 has expired 

A real time or low priority job has exceeded its time quantum. 
Requeue the job at the tail of its execution queue. 



MOV 


LQUAN<R1),R0 


MOVB 


LPRI(R1),R2 


CMPB 


R2, VPRIHI 


BLO 


10* ■> 


CMP 


RO, VQUANO i 


BLOS 


3* ; 


TST 


VQUANO ■> 


BEQ 


3* i 


JSR 


RO, QUNSIG ; 


. WORD 


*SGQO 


BR 


11* ) 


CMPB 


R2, VPRILO i 


BHI 


12* i 


CMP 


RO, VQUAN3 } 


BLOS 


3* i 


JSR 


RO, QUNSIG i 


. WORD 


*SGQ3 



11*: 



MOV 


LSTATE(R1),R0 


CALL 


ENQTL 


CLR 


LQUAN<R1) 


BR 


3* 



Get job's current execution state 
Requeue job at tail of execution queue 
Reset job time quantum 



This job is not a low priority or real time job. 

See if current job is an interactive job. and if so decrement 

its interactive-CPU time. 



12*: 



TST 


LITIME(Rl) 


BEQ 


2* 


DEC 


LITIME<R1) 


BNE 


2* 


JSR 


RO, QUNSIG 


. WORD 


*SGQ1 


BR 


6* 



Is job interactive? 

Br if not 

Reduce time remaining for job 

Br if still interactive 

Signal that QUANl has expired 

Check QUANl signal flag 

Now schedule job as compute bound 



i 
i 
f 

I 
I 
I 
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i 
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€ 



TSEXC2 
CLKJOB - 

58 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 
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007010 016100 0000000 



007014 
007022 



007024 
007032 



026127 
101050 



026127 
101454 



0000000 OOOOOOG 



0000000 OOOOOOG 



; Chetk for job quantum expiration. 

i 

2*: MOV LQUAN(R1),R0 

See if this job is currently running in a high-priority state. 

CMP LSTATE(R1),#S*«HIP; Is job in high-priority state now? 
BHI 4* iBr if not 

Don't do time-slicing for real-time jobs. 

CMP L3TATE<R1 ) > #S**RTj I s job in high-priority real-time state? 
BLQS 3* i Br if yes — skip time-quantum checking 

Job is running in a high-priority state. 
See if job is interactive. 



007034 
007040 
007042 
007046 
007050 
007054 
007056 



007060 
007066 
007070 
007074 
007076 
007102 
007104 
007110 



007112 
007116 
007120 
007124 



007126 
007132 
007136 
007142 



005761 

001007 

020037 

101446 

004037 

OOOOOOG 

O0044O 



026127 

103011 

020037 

101406 

004037 

OOOOOOG 

012700 

000410 



020037 
101422 
004037 
OOOOOOG 



016100 
004737 
005061 
000410 



OOOOOOG 
OOOOOOG 
OOOOOOG 



TST 


LITIME<R1) 


BNE 


5* 


CMP 


RO, VQUNIA 


BLOS 


3* 


JSR 


RO. QUNSIG 


. WORD 


SSGQIA 


BR 


6* 



ils this an interactive job? 

; Br if yes 

; Time to requeue as compute bound? 

j Br if not 

.Signal that QUANIA expired 

J Schedule as compute bound job 



Job is "interactive" 



OOOOOOG OOOOOOG 5*: 

OOOOOOG 

OOOOOOG 

OOOOOOG 



CMP LSTATE<R1),#S*HICP; High priority interactive? 

BHIS 9* ; Br if not 

CMP RO. VQUNIC i Time to drop to lower level? 

BLOS 9* iBr if not 

JSR RO, QUNSIG i Signal that QUANIC expired 

. WORD *S0Q1C 

MOV #S*HICP.RO iDrop to interactive computation state 

BR 7* 

If QUANIB has expired, requeue job at tail of current queue 



OOOOOOG 
OOOOOOG 



9*: 



CMP RO. VQUNIB 

BLOS 3* 

JSR RO, QUNSIG 

. WORD *SGQ1B 



;Time to shuffle queue? 

iBr if not 

; Signal that QUANIB expired 



OOOOOOG 
OOOOOOG 
OOOOOOG 



7*: 



Requeue job at tail of current execution queue 

MOV LSTATE<R1),R0 ; Get job's execution state 

CALL ENQTL i Requeue job at tail of execution queue 

CLR LQUAN(R1> ; Give job a fresh time quantum 

BR 3$ 

Job is not in high-priority state. 
Schedule jobs on quan2 basis. 



007144 
007150 
007152 



020037 
101405 
004037 



OOOOOOG 
OOOOOOG 



4*: 



CMP 


RO. VQUAN2 


BLOS 


3* 


JSR 


RO. QUNSIG 



iHAS JOB USED UP QUAN2 UNITS OF TIME? 
jBR if not — DON'T RESCHEDULE JOB YET 
i Signal that QUAN2 expired 
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115 007156 OOOOOOG 

116 

117 

118 

119 007160 004737 OOOOOOG 

120 

121 

122 

123 007164 012602 

124 007166 012601 

125 007170 000207 



. WORD *SGQ2 
i Reschedule job in CPU-bound run state. 
6*: CALL QCPU : RESCHEDULE JOB IN CPU-BOUND STATE 

Finished 
3*: 



MOV 
MOV 
RETURN 



(SP)+, R2 
<SP)+, Rl 



i 

I 
f 

I 

4 



€ 
f 

I 

i 

t 

i 

i 

€ 

4 



i 
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TSEXC2 
CLKOIS - 

1 
5 
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. SBTTL CLKOIS 



O. 1 second clock processing 



007172 
007174 



3 

4 

5 

6 

7 

8 

9 
10 
11 

12 007176 

13 007202 
14 

15 
16 
17 

18 007204 

19 007210 

20 007212 

21 007216 

22 007222 
23 

24 
25 

26 007226 

27 007232 

28 007240 

29 007242 

30 007246 

31 007250 

32 007254 

33 007256 

34 007262 

35 007264 

36 007270 

37 007274 

38 007300 
39 

40 
41 

42 007302 

43 007306 

44 007310 

45 007316 

46 007322 

47 007326 

48 007330 

49 007334 
50 

51 
52 

53 007336 

54 007340 

55 007342 

56 007346 

57 007352 



CLKOIS is the timer called every 0. 1 seconds to do processing 
at this frequency. 



010246 
010346 



CLKOIS: MOV 
MOV 



R2, -(SP) 
R3, -(SP) 



Get # 0. 1 second units that have elapsed since the last time we 
were called. 



013703 
005203 



001342' 



16*: 



MOV 
INC 



TIKOIS. R3 
R3 



i Get tick counter 

; Actual time = counter + 1 



005737 
001406 
005037 
012700 
004737 



012702 
032762 
001415 
005762 
001412 
005362 
001007 
105737 
001404 
105237 
105037 
162702 
001354 



160337 
003013 
062737 
005237 
005737 
001403 
005337 
001537 



010302 
006302 
060237 
005537 
005737 



0000000 

0000000 
OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 



TST 


MBFFLG 


BEQ 


15* 


CLR 


MBFFLG 


MOV 


#S*WSMB, RO 


CALL 


UREGO 



OOOOOOG 
OOOOOOG 
000002 



See if any jobs need to be restarted because they were waiting for 
a free message buffer and one was freed. 

i Were any message buffers freed? 

; Br if not 

/Reset message-buffer-freed flag 

; Restart any jobs that are 

; waiting for message buffers 



GET # OF LAST JOB 

IS JOB IN MEMORY NOW? 

BR IF NOT 

HAS ITS MIN CORE TIME ALREADY EXPIRED? 

BR IF YES — DON'T MAKE IT GO NEGATIVE 

DEC MIN CORE TIME REMAINING FOR JOB 

BR IF MIN CORE TIME DID NOT EXPIRE 

DOES SCHEDULER WANT TO BE CALLED? 

BR IF NOT 

REQUEST A JOB SCHEDULER CYCLE 

CLEAR M IN-TIME SCHEDULER REQUEST 

CHECK NEXT LINE 



Keep track of number of minutes of uptime for system. 



i Decrement 


minimum core resid 


15*: 


MOV 


#LSTSL, R2 


13*: 


BIT 


#*INC0R,LSW<R2) 




BEQ 


14* 




TST 


LMINQ<R2> 




BEQ 


14* 




DEC 


LMINQ<R2) 




BNE 


14* 




TSTB 


SWPCOT 




BEQ 


14* 




INCB 


DOSCHD 




CLRB 


SWPCOT 


14*: 


SUB 


#2, R2 




BNE 


13* 



OOOOOOG 

001130 OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 



SUB R3, MINCTR 

BGT 1* 

ADD #600. , MINCTR 

INC MINTIM 

TST DTLX 

BEQ 1* 

DEC DTLX 

BEQ 99* 



HAS 1 MINUTE PASSED? 

BR IF NOT 

RESET COUNTER 

COUNT # MINUTES OF SYSTEM UPTIME 

IS THIS A DEMO VERSION OF THE SYSTEM? 

BR IF NOT 

HAS DEMO TIME LIMIT EXPIRED? 

BR IF DEMO TIME LIMIT REACHED 



Keep track of user/idle/swap-wait time 



OOOOOOG 
OOOOOOG 
OOOOOOG 



MOV 
ASL 
ADD 
ADC 
TST 



R3, R2 

R2 

R2, TMTOTL 

TMTOTH 

UIOCNT 



Get timer ticks 

Count 2 time units per interval 

COUNT TOTAL TIME 

PROROGATE CARRY 

IS ANY USER I/O IN PROGRESS NOW? 
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TSEXC2 


— Misc 


. TSX-Pl 


us Execu 


MACRO V 




CLKOIS - 


— 0. 1 second ci 


ock processing 




5B 


007356 


001404 








59 


007360 


060237 


ooooooe 






60 


007364 


005537 


OOOOOOG 






61 


007370 


105737 


OOOOOOG 






62 


007374 


001003 








63 


007376 


105737 


OOOOOOG 






64 


007402 


001404 








65 


007404 


060237 


OOOOOOG 






66 


007410 


005537 


OOOOOOG 






67 


007414 


105737 


OOOOOOG 






68 


007420 


001405 








69 


007422 


060237 


OOOOOOG 






70 


007426 


005537 


OOOOOOG 






71 


007432 


000437 








72 












73 












74 


007434 


105737 


OOOOOOG 






75 


007440 


001003 








76 


007442 


105737 


OOOOOOG 






77 


007446 


001415 








78 












79 


007450 


005737 


OOOOOOG 






SO 


007454 


001405 








81 


007456 


006202 








82 


007460 


06023/ 


OOOOOOG 






83 


007464 


005537 


OOOOOOG 






84 


007470 


060237 


OOOOOOG 






85 


007474 


005537 


OOOOOOG 




4 


86 
87 


007500 


000414 








88 


007502 


005737 


OOOOOOG 




f 


89 


007506 


001405 








90 


007510 


060237 


OOOOOOG 






91 


007514 


005537 


OOOOOOG 




1 


92 
93 


007520 


000404 








94 


007522 


060237 


OOOOOOG 






95 


007526 


005537 


OOOOOOG 






96 












97 












98 












99 


007532 


004737 


006644 ' 






100 












101 












102 












103 


007536 


004737 


007646 ' 






104 












105 












106 












107 


007542 


004737 


011116' 






108 












109 












110 












111 


007546 


160337 


OOOOOOG 






112 


007552 


003020 








113 


007554 


062737 


000005 


OOOOOOG 




114 


007562 


004737 


011210' 





7*: 

8$: 
9*: 



BEQ 

ADD 

ADC 

TSTB 

BNE 

TSTB 

BEQ 

ADD 

ADC 

TSTB 

BEQ 

ADD 

ADC 

BR 



7* 

R2, TMIOL 

TMIOH 

OUTBSY 

8* 

INBSY 

9* 

R2. TMSWPL 

TMSWPH 

CORUSR 

2* 

R2. TMUSRL 

TMUSRH 

3* 



; BR IF NOT 

; COUNT TIME THAT USER I/O IS ACTIVE 

IS OUTSWAP IN PROGRESS? 

BR IF YES 

IS INSWAP IN PROGRESS? 

BR IF NOT 

COUNT TIME SWAP IS IN PROGRESS 

IS A USER JOB IN EXECUTION NOW? 

BR IF NOT 

COUNT TIME FOR USER JOB EXECUTION 



?*: 



No user is running. 

See if ute should count time as suap-ujaiti i/o-uiait or idle. 



TSTB 
BNE 
TSTB 
BEQ 



OUTBSY 
4* 

INBSY 
10* 



i Snapping is in progress. 

4*: TST UIOCNT 

BEQ 11* 

ASR R2 

ADD R2, TMIOWL 

ADC TMIOWH 

11*: ADD R2i TMSWTL 

ADC TMSWTH 

BR 3* 



IS AN OUTSWAP IN PROGRESS? 
BR IF YES 

IS AN INSWAP IN PROGRESS? 
BR IF NOT 
See if user I/O is also going on. 
IS USER I/O IN PROGRESS? 
BR IF NOT 

SPLIT TIME BETWEEN SWAP-WAIT AND I/O-WAIT 
CHARGE rO 1/0-WAIf 

; CHARGE TO SWAP -WAIT 



> No swapping going on. 

10*: TST UIOCNT 

BEQ 12* 

ADD R2. TMIOWL 

ADC TMIOWH 

BR 3* 

i System is idle. 

12*: ADD R2, TMIDLL 

ADC TMIDLH 



See if user I/O is in progress. 
IS USER I/O IN PROGRESS? 
BR IF NOT 
CHARGE TO I/O-WAIT 



i CHARGE TO IDLE TIME 



Check for time-slice expiration of current job 
3*: CALL CLKJOB i CHECK FOR TIME-SLICE EXPIRATION OF CUR JOB 

Check to see if ue need to cancel I/O hold flag for any jobs 

CALL CLKIOH > Check for I/O hold flags 

Check for processing needed for autobaud logic 

CALL CLKABD ; Check for autobaud timer processing 

Processing done luith O. 5 second frequency. 

Has 0.5 seconds passed? 

BR IF NOT 

RESET TIMER 

DO TIMED CHECKS ON TIMESHARING LINES 



SUB 


R3, TK5CNT 


BGT 


6* 


ADD 


#5. , TK5CNT 


CALL 


TLCHK 
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- 0. 1 second clock processing 



007566 004737 010102' 

007572 004737 007746 ' 

007576 005727 OOOOOOG 

007602 001404 

007604 005237 0000000 

007610 005237 0000000 



007614 160337 001342' 
007620 002402 

000137 007176' 



007626 012603 

007630 012602 
007632 000207 



SEE IF WE NEED TO WAKE UP SLEEPING JOBS 

See if uie need to print professional screen 

Are there any CL lines? 

Br if not 

Say output character processing needed 

Trigger CL clock-driven processing 

See if any more 0. 1 second time units passed while we were working 



CALL 


WAKEUP 


CALL 


CHKPRT 


TST 


#CLTOTL 


BEQ 


6* 


INC 


NEDCDO 


INC 


NEDCLO 



6*: 



SUB 
BLT 
JMP 



i Finished 

i 

17*: 



MOV 
MOV 
RETURN 



R3, TIKOIS 

17* 

16* 



<SP)+, R3 
(SP)+, R2 



» Have any more 0.1 second intervals passed? 

i Br if not 

i Go back and process again 



Time limit has expired on demo version of TSX-Plus. 
Kill the system. 



007634 



99*: 



DIE 



#EM*DTL 



i SYSTEM CRASH — DEMO TIME LIMIT REACHED 
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-- See if ue need to cancel I/O hold timers 



. SBTTL CLKIOH 



See if we need to cancel I/O hold timers 



3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 



007646 010146 



007650 012701 OOOOOOG 



This routine is called every 0. 1 second to see if ue should cancel 
the I/O hold timers for any jobs. The I/O hold timer is set when we 
want to swap a job out of memory but the job has I/O in progress. 
To avoid holding the I/O for a job forever* we release the I/O hold 
after a certain period of time (lOHLTM) if a swap has not taken place. 

CLKIOH: MOV R1.-<SP) 

Begin loop to check I/O hold time for each job 

MOV #LSTSL, Ri i Get index to last job 

See if I/O hold flag is set for this job 



007654 005761 
007660 001425 



OOOOOOG 



1*: 



TST 
BEQ 



LIOHLD(Rl) 

2* 



i Is I/O hold flag set for job? 
i Br if not 



Decrement the remaining 1/0 hold time 



007662 005361 OOOOOOG 
007666 003022 



DEC LI0HLD<R1) 
BGT 2* 



iLess I/O hold time left 
; Br if some time left 



007670 026127 OOOOOOG OOOOOOG 

007676 001003 

007700 004737 OOOOOOG 

007704 000413 



We just cancelled the I/O hold time for this job. 
If the job is in a wait state* restart it. 

CMP LSTATE(R1)>#S*I0WT ils job in I/O wait state? 

BNE 3* iBr if not 

CALL FORCEX ; Start the job running 

BR 2* 

If the job has any pending completion routines* make sure the job 
priority is at least as high as that of the 1st completion routine. 
This is necessary since we held off user completion routines while 
we were waiting for I/O to stop. 



007706 016100 OOOOOOG 

007712 001410 

007714 126160 OOOOOOG OOOOOOG 

007722 101404 

007724 116000 OOOOOOG 

007730 004737 OOOOOOG 



007734 162701 000002 
007740 003345 



3*: 



MOV 

BEQ 

CMPB 

BLDS 

MOVE 

CALL 



LCMPL<R1)*R0 ; Does job have any pending compl routines? 

2* i Br if not 

LSTATECRD* CQ*RNS<RO)i Is job priority high as cpl rtn prio? 

2* i Br if yes 

CQ*RNS<RO)* RO ; Get job state for compl routine 



ENQTL 
Process next job 



2*: 



007742 012601 
007744 000207 



SUB 


#2*R1 


BGT 


1* 


Finished 




MOV 


(SP)+,R1 


RETURN 





Change job state 



j Get index of next job 

J Loop if more jobs to check 
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- See if uje need to print Professional screen 
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26 
27 
28 
29 
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31 
32 
33 
34 
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37 
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52 
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55 



. SBTTL CHKPRT — See if we need to print Professional screen 

CHKPRT is called to see if the PI handler has requested that the 
contents of the professional screen be printed. If so, an asynchronous 
completion routine in the PROPRT program is triggered. 



007746 010246 
007750 010446 



007752 105737 OOOOOOG 
007756 001446 



CHKPRT: MOV 
MOV 



R2, -<SP) 
R4, -(SP) 



Return immediately if ue are not running on a professional 



TSTB 
BEQ 



PROFLO 

9* 



i Are (lie running on a Professional? 
i Br if not 



See if the PROPRT program is running 



007760 012702 OOOOOOG 

007764 026237 OOOOOOG 001344' 1*: 

007772 001004 

007774 026237 OOOOOOG 001346' 

010002 001404 

010004 162702 000002 2*: 

010010 003365 
000425 



MOV 


#LSTSL, R2 


CMP 


LPRG1<R2),R50PR0 


BNE 


2$ 


CMP 


LPRe2<R2),R50PRT 


BEQ 


3* 


SUB 


#2, R2 


BGT 


1* 


BR 


4* 



Get index to last line 

1st 3 chars of name = "PRO"? 

Br if not 

2nd 3 chars of name = "PRT"? 

Br if found program 

More lines to check? 

Loop if yes 

PROPRT program is not running 



010014 005762 OOOOOOG 
010020 001422 



OlOOJ 



052737 OOOOOOG OOOOOOG 



010030 032737 OOOOOOG OOOOOOG 
010036 001416 



010040 016204 OOOOOOG 

010044 001404 

010046 005062 OOOOOOG 

010052 004737 OOOOOOG 

010056 042737 OOOOOOC OOOOOOG 5$: 

010064 000403 



The PROPRT program is running. See if it has scheduled a 
completion routine. 

3*: TST LBRKCQ<R2) iDid it specify a completion routine? 
BEQ 4* j Br if not 

BIS #SS*RUN> SPSTAT i Set flag saying spooler is running 

See if PI handler requested that screen be printed 

BIT #SS*PRT> SPSTAT iDid PI request that screen be printed? 
BEQ 9* i Br if not 

Trigger completion routine in PROPRT 

MOV LBRKCQ(R2>, R4 i Get address of completion queue element 

BEQ 5* 

CLR LBRKCQ<R2} i Say completion Q element used up 

CALL QCOMPL i Queue completion routine for the job 

BIC #SS*PRT ! SS*RUN, SPSTAT i Clear print-screen flag 

BR 9* 



■> The PROPRT program is not running 
010066 042737 OOOOOOC OOOOOOG 4*: BIC #SS*RUN ! SS*PRT. SPSTAT i Say program not running 

i 

i Finished 

i 

010074 012604 9*: 

010076 012602 
010100 000207 



MOV 


<SP)+, R4 


MOV 


<SP)+, R2 


RETURN 
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0.5 second processing 



010102 
010104 
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8 
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14 010124 

15 010126 
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18 010136 

19 010142 

20 010150 
21 

22 
23 
24 
25 
26 
27 
28 

29 010160 

30 010162 
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for sleeping users 

. SBTTL WAKEUP — 0. 5 second processing for sleeping users 

Timer routine called ever 0.5 seconds to see if sleeping users 
need to be auaken. 



010152 
010156 



010146 
012701 



026127 
001015 
005761 
001412 
005361 
001007 
010546 
016105 

012605 



162701 
001354 



012601 
000207 



OOOOOOG 



WAKEUP: MOV 
MOV 



Rl. -<SP) 
#LSTSL, Rl 



J GET INDEX TO LAST LINE 
Check for jobs that need to have TT reads timed out 



OOOOOOG OOOOOOG 1*: 

OOOOOOG 

OOOOOOG 

OOOOOOG 



CMP 

BNE 

TST 

BEQ 

DEC 

BNE 

MOV 

MOV 

OCALL 

MOV 



LSTATE<R1),#S«INWT; IS JOB WAITING FOR TT INPUT? 



2$ 

LRDTIM<R1) 

2* 

LRDTIM<R1) 

2« 

R5. -(SP) 

LRTCHR(R1),R5 

STRACT 

(SP)+, R5 



Check next line 



OOOOOJ 



2*: 



SUB 
BNE 

Finished 



MOV 
RETURN 



#2, Rl 
1* 



(SP)+, Rl 



BR IF NOT 

DDES JOB HAVE A TT READ TIME VALUE SPECIFIED? 

BR IF NOT 

HAS TIME EXPIRED? 

BR IF NOT 

iOET TIME-OUT ACTIVATION CHARACTER 
; STORE ACTIVATION CHARACTER 



i GET NEXT LINE INDEX 

; BR IF THERE IS ANOTHER LINE TO CHECK 
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MACRO V 
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— Check 


on jobs 
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4 










5 










6 
7 
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010164 


010146 














9 










10 


010166 


012701 


OOOOOOG 




11 


010172 


026127 


ooooooe 


OOOOOOG 


12 


010200 


001024 






13 


010202 


163761 


OOOOOOG 


OOOOOOG 


14 


010210 


005661 


OOOOOOG 




15 


010214 


002404 






16 


010216 


001015 






17 


010220 


005761 


OOOOOOG 




IS 


010224 


001012 






19 










20 










21 










22 










23 


010226 


005761 


OOOOOOG 




24 


010232 


001403 






25 


010234 


012700 


OOOOOOG 




26 


010240 


000402 






27 


010242 


012700 


OOOOOOG 




28 


010246 


004737 


OOOOOOG 




29 


010252 


162701 


000002 




30 


010256 


001345 






31 










32 










33 










34 


010260 


012601 






35 


010262 


000207 
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. SBTTL CKTWAT — Check on jobs doing .TWAIT waits 

CKTWAT is called every clock tick to see if any jobs doing .TWAIT waits 
need to be restarted. 

CKTWAT: MOV R1,-<SP) 

Check for jobs doing timed waits <.twait) 



4*: 



MOV 
CMP 
BNE 
SUB 
SBC 
BLT 
BNE 
TST 
BNE 



#LSTSL, Rl iGET HIGHEST JOB INDEX NUMBER 
LSTATE(Rl)»#S*TMWTi IS THIS JOB DOING A TIMED WAIT? 
5* i BR IF NOT 

CLKCNT/ LSLEFL ( R i ) i DEC SLEEP T I ME 



LSLEPH(R1} 

6$ 

5* 

LSLEPL<R1) 
5* 



PROPOGATE CARRY 
BR IF COUNT WENT NEGATIVE 
BR IF GREATER THAN ZERO 
CHECK LOW-ORDER VALUE 
BR IF NOT ZERO 



Timed wait is completed. 

Put job in high priority execution state. 



6*: 


TST 


LITIME<R1) 




BEG 


11* 




MOV 


#S*HICP, RO 




BR 


10* 


11*: 


MOV 


#S*TWFN, RO 


10*: 


CALL 


ENQTL 


5*: 


SUB 


#2, Rl 




BNE 


4* 


i F 


inished 





IS THIS AN INTERACTIVE JOB? 

BR IF NOT 

PUT JOB IN INTERACTIVE CPU STATE 

: PUT JOB IN NORMAL HIGH-PRIO EXECUTION STATE 

i MORE JOBS TO CHECK? 
; BR IF YES 



MOV 

RETURN 



(SP)+. Rl 
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mark-time req.ue5t5 

, SBTTL CKMRKT — check mark-time requests 

CKMRKT is called every clock tick to see if any mark-time requests have 
reached their specified time to be triggered. 



10264 
10266 
10270 



10272 
10276 
10302 
10310 
10314 



10316 
10324 
10330 
10332 
10334 
10340 
10342 
10344 



010146 
010246 
010446 



005037 001336 



CKMRKT: MOV 
MOV 
MOV 



R 1 , - < SP > 
R2, -<SP> 
R4. -(SP) 



01270s 



OOOOOOC 



016204 OOOOOOG 
001442 



163764 OOOOOOG OOOOOOG 

005664 OOOOOOG 

002406 

001003 

005764 OOOOOOG 

001402 

010402 

000761 



1*: 



Check for pending mark-time requests 

CLR FORKIT ; Clear fork request flaq 

MOV #MRKTHD-CQ*LNK, R2; FAKE POINTER TO QUEUE' HEAD 

DISABL i #* Disable interrupts ** 

MOV CQ*LNK(R2),R4 i i i GET ADDRESS OF NEXT ELEMENT IN LIST 

BEQ S« i i i BR IF END OF LIST REACHED 

Subtract time that has past from specified mark-time interval. 



2*: 



SUB CLKCNT, CQ*LOT < R4 ) 

SBC CQ*H0T<R4) 

BLT 3* 

BNE 2* 

TST CQ*L0T(R4) 

BEQ 3* 

MOV R4, R2 

BR 1* 



i SUBTRACT FROM LOW-ORDER TIME VALUE 

PROROGATE BORROW TO HIGH-ORDER VALUE 

BR IF TIME WENT NEGATIVE 

BR IF TIME STILL POSITIVE 

CHECK LOW-ORDER VALUE 

Br if zero (time has elapsed) 

Chain forward to next entry in list 



This mark-time request has expired. 

Remove the mark-time request entry from the waiting list. 



010346 016462 OOOOOOG OOOOOOG 3*: 



MOV 



CQ*LNK(R4), CQ*LNK(R2)i i i Remove from pending mark-time chain 



Put request on list of pending requests and schedule a lower-priority 
fork routine to actually execute the completion routine. 



10354 005064 OOOOOOG 
10360 013700 OOOOOOG 
10364 001005 



10366 010437 OOOOOOG 
10372 010437 001336' 
10376 000744 



10400 005760 OOOOOOG 

10404 001403 

10406 016000 OOOOOOG 

10412 000772 

10414 010460 OOOOOOG 

10420 000733 



CLR CQ*LNK(R4) 
MOV SYPNCR, RO 
BNE 9* 



Clear forward link in completed element 
Get address of Ist pending compl request 
Br if there are pending requests 



First entry of completion requires a fork process to be executed. 



5*: 



MOV 
MOV 
BR 



R4, SYPNCR 
R4, FORKIT 
1* 



Set us as 1st pending compl routine 

Set fork request flag 

Go check for more finished requests 



Other completion entries exist so add current completion to list tail. 



9*: TST CQ*LNK(RO) 

BEQ 6* 

MOV CQ*LNK(RO).RO 

BR 9* 

6*: MOV R4, CG*LNK(RO) 

BR 1* 



Is there another pending request? 
Br if not 

Chain forward to next pending request 
Follow list to end 

Check for more completed requests 



Finished. Create fork process if needed. 
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010422 
010430 
010434 
010436 
010442 
010450 
010456 
010462 
010464 
010466 
010470 



8$: 



00 5737 00 1 336 

001412 

004737 

112764 

012764 

004737 

012604 

012602 

012601 

000207 



0000000 
OOOOOOG 
010472' 
OOOOOOG 



OOOOOOG 
OOOOOOG 



10*: 



ENABL 

TST 

BEQ 

CALL 

MOVE 

MOV 

CALL 

MOV 

MOV 

MOV 

RETURN 



FORKIT i Chec k 

10* ;Br if 

FRKGET J Get a 

#FP*IOF, FQ*PRI<R4)i Set 
#CLKSCR> FQ*RTN<R4)i Set 
FORKQ ; Queue 

(SP)+, R4 
<SP)+, R2 
(SP)+,R1 



** Enable interrupts ** 



fork request flag 

fork is not needed 

free fork request block 

fork priority 

address of routine to execute 

the fork request 



TSEXC2 
CLKSCR 
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- Execute completed system mark-time requests 



i 
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21 
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26 
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28 
29 
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43 
44 
45 
46 
47 



SBTTL CLKSCR 



Execute completed system mark-time requests 



This routine is at a lower-priority clock-driven fork priority 
to process all completed mark-time completion requests for system 
routines. 



010472 010146 
010474 010446 



010476 

010504 013704 OOOOOOG 

010510 001433 

010512 016437 OOOOOOQ OOOOOOG 

010520 



010526 112764 OOOOOOG OOOOOOG 
010534 116401 OOOOOOG 
010540 001414 



CLKSCR: MOV 
MOV 



R 1 , - < SP ) 
R4, -<SP> 



Unlink next completed entry from pending list 



1«: DISABL 

MOV SYPNCR, R4 

BEQ 9* 

MOV 

ENABL 



«# Disable interrupts *# 
J ; Get address of next completion block 
i i Br if no more pending 
CQ*LNK<R4)> SYPNCR iJjUnlink block from list 

; «* Enable interrupts ** 



See if this mark-time request is for a user job or the system. 

MOVE #CP*STD^ CQ*CP<R4)i Set completion routine class priority 
MOVE CQ*J0B<R4), Rl ; Get index # of job that did the . MRKT 
BEQ 4* > Br if timer request came from the system 

Timer request is for a user job. 

Call QCOMPL to queue the completion routine for the user job. 



010542 012700 OOOOOOG 

010546 005761 OOOOOOG 

010552 001402 

010554 012700 OOOOOOG 

1 560 1 1 0064 OOOOOOG 

010564 116164 OOOOOOG OOOOOOG 



010572 004737 OOOOOOG 



?*: 



MOV 

TST 

BEQ 

MOV 

MOVE 

MOVE 



#S*TWFN, RO 
LITIME(Rl) 
2* 

#S*HICP, RO 
RO, CQ*RNS<R4> 



i Get compl prio for non-interactive jobs 

J Is this job interactive? 

i Br if not 

; Get compl prio for interactive jobs 

; Set execution state for compl routine 



010576 000737 



010600 

010606 012604 

010610 012601 

010612 000207 



LPRI (Rl ), CQ*PRI <R4)i Set execution priority value 
Process this completion request 
4*: CALL QCOMPL i Process the completed request 

Go back and see if there are more pending requests 

BR 1* 
Finished all pending requests 
9*: 



ENABL 




MOV 


(SP)+, R4 


MOV 


(SP)+, Rl 


RETURN 
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1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 
16 
17 

18 

19 

20 
21 
22 
23 

24 

25 
26 



c./ \J 

28 

29 

30 
31 
32 
33 
34 

35 

36 

37 

38 

39 
40 
41 

42 

43 
44 

45 

46 O 
47 
48 

49 O 

50 O 
51 

52 

53 
54 

55 
56 
57 



10614 
10616 
10620 



10622 
10630 

10632 
10640 
10642 
10646 



10650 
10654 
10662 
10664 
10670 



10672 
10700 

10702 
10706 



10710 
10716 

10720 
10726 



010146 
010246 
010346 



032737 
001407 

032737 
001065 
013703 
000432 



013701 
032761 
001054 
120137 
001007 



032737 
001413 

013703 
000412 



032737 
001436 

026127 
001032 



OOOOOOG OOOOOOG 

ooooooe OOOOOOG 

OOOOOOG 



OOOOOOG 
OOOOOOG 

OOOOOOG 



OOOOOOG 



. SBTTL CLKPM — accumulate performance monitoring data 

CLKPM is called to accumulate performance monitoring information. 

Inputs: 
CLKCNT = Number of clock ticks to charge to job. 
CLKPC = PC when clock interrupt occured. 
CLKPS =5 PS when clock interrupt occured. 

PMUSER = Job number of user who is doing performance analysis. 
PMBASE = Base address of region being monitored. 
PMTOP = Top address of region being monitored. 
PMFLGS = PF« control flags 
LEMTPC<Job) = PC when last EMT was executed for job. 

Outputs: 
Appropriate cell in performance counter table is incremented. 



CLKPM: 



MOV 
MOV 
MOV 



R 1 , - ( SP > 
R2, -<SP) 
R3, -(SP) 



OOOOOOG OOOOOOG 



OOOOOOG 



OOOOOOG OOOOOOG 1*: 



OOOOOOG OOOOOOG 



10730 016103 OOOOOOG 



See if we are monitoring system execution or user job execution. 

BIT #PF*SYS, PMFLGS ; MONITORING SYSTEM OR USER JOB? 

BEQ 4* ;BR IF MONITORING USER JOB 
We are monitoring the system. 

BIT #UMODE, CLKPS ; DID INTERRUPT OCCUR IN KERNEL MODE? 

BNE 9* ; BR IF NOT — USER WAS RUNNING 

MOV CLKPC, R3 i GET ADDRESS WHERE INTERRUPT OCCURED 

BR 3* i GO COUNT HIT 

We are monitoring user job execution. 

Determine if we should count a hit against running job. 

4*: MOV PMUSER, Rl i GET # OF JOB BEING MONITORED 

BIT #*INKMN, LSW4<Rl)i IS KMON RUNNING? 

BNE 9* > DON'T MONITOR KMON 

CMPB R1,C0RUSR i IS JOB BEING MONITORED THE CURRENT JOB? 

BNE 1* J BR IF NOT 

} Monitored job is running now. 
; See if interrupt occured in user or kernel mode. 

BIT #UMODE, CLKPS J DID INTERRUPT OCCUR IN USER OR KERNEL MODE? 

BEQ 2* i BR IF IN KERNEL MODE 

J Job was in user mode so use interrupted PC. 

MOV CLKPC, R3 ; COUNT HIT AGAINST THIS PC 

BR 3* 
i Monitored job is not now running. 

See if we should charge I/O wait time to job. 

BIT #PF« low, PMFLGS i SHOULD WE CHARGE FOR I/O WAIT TIME? 

BEQ 9* ; BR IF NOT 

i See if monitored job is waiting for I/O. 

CMP LSTATE<Rl),#S*10WTi IS MONITORED JOB WAITING FOR I/O? 

BNE 9* ^ BR IF NOT 

; Use last EMT address as cell to charge hit to. 
2*: MOV LEMTPC(R1),R3 ; GET ADDRESS OF LAST EMT DONE BY JOB 

i 

} At this point we have in R3 the PC that we are to charge this time to. 
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60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
70 
79 
80 
81 



010734 
010740 
010742 
010746 

010750 
010754 
010756 
010762 
010764 

1 r\-r-rn 

010776 
011002 
011004 

01 1006 



011014 
011016 
011020 



See if the PC is in the region being monitored. 



020337 
103425 
020337 
103022 

163703 
005002 
071237 
006302 
062702 
013737 
063712 
103004 
005312 
052737 



012603 
012602 
012601 
000207 



OOOOOOG 
0000000 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG 

OOOOOOG OOOOOOG 



3*: 



9*: 



CMP 


R3, PMBASE i 


BLO 


9* i 


CMP 


R3, PMTOP i 


BHIS 


9* ) 


PC is in reg 


ion being monitor* 


SUB 


PMBASE, R3 ; 


CLR 


R2 ; 


DIV 


PMNBPC, R2 ; 


ASL 


R2 i 


ADD 


#VPAR6, R2 i 


MOV 


PMPAR, @#KPAR6 i 


ADD 


CLKCNT, <R2) i 


BCC 


9* i 


DEC 


(R2) i 


BIS 


#PF*OVF, PMFLGS i 


Finished 




MOV 


(SP)+, R3 


MOV 


(SP)+, R2 


MOV 


(SP)+, Rl 


RETURN 





IS IT BELOW BASE OF REGION? 

BR IF YES 

IS IT ABOVE TOP OF REGION? 

BR IF YES 

■d. 

SUBTRACT BASE TO GET OFFSET 

SET FOR DIVIDE 

DIVIDE BY # BYTES PER CELL 

CONVERT CELL # TO BYTE # 

ADD VIRTUAL ADDRESS OF PAR6 REGION 

MAP PAR6 TO PM DATA AREA 

ADD TIME TO COUNTER FDR THIS CELL 

BR IF NO OVERFLOW OF CELL 

SET COUNTER VALUE BACK TO -1 

REMEMBER THAN AN OVERFLOW OCCURED 
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3 
4 
5 
6 
7 
S 
9 01 

10 01 

11 01 
12 

13 
14 
15 

16 01 

17 01 
IS 01 

19 01 

20 01 

21 01 

22 01 

23 01 

24 01 

25 01 
26 

27 
28 

29 01 

30 01 

31 01 

32 01 

33 01 



1024 
1026 
1030 



1034 
1042 
1044 
1052 
1056 
1062 
1064 
1070 
1074 
1076 



1102 
1106 
1110 
1112 
1114 



032761 
001417 
042761 
012700 
005761 
001002 
012700 
026100 
101402 
004737 



162701 
003352 
012601 
012600 
000207 



. SDTTL CKSCHD 



Check jobs and schedule 



CKSCHD will check all the jobs and schedule those that have been flagged 
as needing a priority boost because of output buffer empty or low. 



Inputs: 

LSW7 - job scheduling flag 



010046 
010146 
012701 OOOOOOG 



CKSCHD: MOV 
MOV 
MOV 



RO, -<SP) 
R 1 , - < SP ) 
#LSTSL, Rl 



; Save regi sters 

;Obtain index to the last line 



Check all jobs 
empty or low. 



OOOOOOG OOOOOOG 1*: 

OOOOOOG OOOOOOG 

OOOOOOG 

OOOOOOG 



OOOOOOG 
OOOOOOG 

OOOOOOG 



000002 



1%: 



to see if any need a priority boost for terminal buffer- 



Check for scheduling flag enable 

Br if no scheduling required 

Reset job scheduling flag 

Get output-buffer empty state 

Is this an interactive job? 

Br if yes 

If not interactive then use 

Is job already in this prio 

Br if yes 



BIT 


#*SOTFN, LSW7(Ri) 


BEQ 


10* 


BIC 


#*SOTFN. LSW7<R1} 


MOV 


#S*OTFN, RO 


TST 


LITIME(Rl) 


BNE 


2* 


MOV 


#S*OTLO. RO 


CMP 


LSTATE<R1),R0 


BLQS 


10* 


CALL 


ENQTL 



Check the next line. 



10*: 



SUB 


#2, Rl 


BGT 


1* 


MOV 


(SP)+,R1 


MOV 


(SP)+, RO 


RETURN 





lower pri 
or better 



Queue job at tail of execution list 



iCheck the next job 

; Continue until all job tested 

> Restore registers 
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SBTTL CLKABD — Clock processing for autobaud logic 



3 

4 

5 

6 011116 010146 

7 

S 

9 
10 011120 012701 OOOOOOG 
11 
12 



i CLKABD is called on a 1/10 second basis to do clock driven processing 

i related to autobaud logic. 

> 

CLKABD: MOV R1,-<SP) 

i 

; Begin loop to check each line 

i 

MOV #LSTPL. Rl i Get index # of last line 

i 

; See if this line has autobaud control 



14 01 

15 01 
16 

17 
18 

19 01 

20 01 

21 01 

22 01 
23 

24 
25 
26 

27 01 

28 01 

29 01 

30 01 

31 01 
32 
33 
34 

35 01 

36 01 
37 
38 
39 

40 01 

41 01 



1124 
1132 



1134 
1140 
1142 
1146 



032761 OOOOOOG OOOOOOG 1$: 
001421 



005761 OOOOOOG 

001416 

005361 OOOOOOG 

001013 



BIT #*AUTO, ILSW2(R1); Does this line have autobaud control? 
BEQ 2* i Br if not 

Decrement autobaud timer for this line 



TST 
BEQ 
DEC 
BNE 



LABTIM<R1) 

2* 

LABTIM<R1) 

2« 



ils the autobaud timer active? 

i Br if not 

; Decrement timer 

j Br if timer did not time out 



Timer timed out for this line. 

See if we need to reset the line speed. 



1150 
1156 
1160 
1166 
1172 



1176 
1202 



1204 
1206 



032761 OOOOOOG OOOOOOG 

001407 

042761 OOOOOOG OOOOOOG 

012700 OOOOOOG 

004737 OOOOOOG 



162701 000002 
003350 



012601 
000207 



BIT 


#*NABRS, L 


BEQ 


2$ 


BIC 


#*NABRS, L 


MOV 


#39600, RO 


CALL 


SETSPD 


; Check next 1 


ine 


2$: SUB 


#2. Rl 


BGT 


1* 


i Finished 




MOV 


(SP)+,R1 


RETURN 





#*NABRS-. LSW9<R1 >; Do we need to reset the line speed? 

i Br if not 



; Reset line speed to 9600 baud 
i Reset speed 



i More lines to do? 
i Loop if yes 
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. SBTTL TLCHK — Check Dial-up line status 



01 
01 



3 
4 
5 
6 
7 

e 

9 
10 
11 
12 
13 
14 

15 01 

16 01 

17 01 

18 01 
19 

20 
21 

22 01 

23 01 
24 

25 
26 

27 01 

28 01 

29 01 

30 01 



TLCHK is called from the clock interrupt routine every 0.5 seconds 
to see if dial-up lines need to be answered or hung up. 



1210 
1212 



010146 
010246 



TLCHK: MOV 
MOV 



R 1 , - ( SP ) 
R2, -<SP> 



011214 012701 OOOOOOG 



31 
no 



01 
01 

33 01 

34 

35 

36 

37 01 

38 01 
39 
40 

41 

42 01 

43 01 

44 01 



1220 
1226 
1230 
1236 



1240 
1244 



1250 
1254 
1256 
1264 
1266 
1272 
1274 



1300 
1304 



1306 
1310 
1312 



032761 OOOOOOG OOOOOOG 1*: 

001024 

032761 OOOOOOG OOOOOOG 

001420 



016102 OOOOOOG 
004772 OOOOOOG 



005761 OOOOOOG 

002011 

032761 OOOOOOG OOOOOOG 

001405 

020127 OOOOOOG 

101002 

004737 011314' 



Begin loop to check each physical line 

MOV #LSTHL,R1 ; Index to last real line 

See if this line is installed 

BIT #*DEAD, LSW3<R1) ; Is this line installed? 

BNE 2* ; Br if not 

BIT #*HARD* L3W3(R1 ) ; Is this line connected to hardware? 

BEQ 2* ; Br if not 

Call processing routine based on type of communications device 



MOV LCDTYP ( R 1 ) , R2 
CALL @CDCL0K<R2) 



j Get comm device index number 

;Call processing routine for this line 



If this is a dial-up line, check on line ringing* lost carrier* etc. 

TST LCLUNT(Rl) ils this line in use as a CL unit? 

BGE 2* i Br if this is a CL line 

BIT #*PH0NE* ILSW2<R1); Is this a dial-up line? 

BEQ 2* ;Br if not 

CMP R1,#LSTPL J Is this a time-sharing or CL line? 

BHI 2* j Don't do phone checks for CL lines 

CALL CLKPHN /Check phone line 

See if there are more lines to be checked 



162701 000002 
001345 



012602 
012601 
000207 



>*: 



SUB 


#2, Rl 


BNE 


1* 


Finished 




MOV 


(SP)+, R2 


MOV 


(SP)+,R1 


RETURN 





j Get index number for next line 
J Loop if more lines to check 
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CLKPHN 




1 




»-) 




C 




3 




4 




5 




6 




7 




8 




9 




10 




11 




12 




13 




14 




15 




16 




17 




IS 




19 


20 




21 




no 




cc 




23 




24 




25 




26 




27 




28 




29 




30 




31 




32 




33 




34 




35 




36 




37 




38 




39 




40 




41 




42 




43 




44 




45 




46 




47 




48 




49 




50 




51 




52 




53 




54 




55 




56 




57 
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011314 010246 



011316 016102 OOOOOOG 
011322 004772 OOOOOOS 



. SBTTL CLKPHN — Do timer driven checks of dial-up lines 

i CLKPHN is called periodically to perform checks on dial-up lines. 
; Checks are made to see if the phone is ringing or if carrier 
i has been detected or lost. 

i 

i Inputs: 

> Rl = Physical line index number. 

i 

CLKPHN: MOV R2, -<SP) 

i 

i Call device-dependent routine to get the data set status for this line 



MOV LCDTYP<R1),R2 
CALL @CDGDSS<R2) 



j Get comm device type code index 
; Get data set status 



011326 105737 OOOOOOG 

011332 001020 

011334 032700 OOOOOOG 

011340 001415 

011342 032700 OOOOOOG 

011346 OOlOli:? 



011350 052700 OOOOOOG 

011354 004772 OOOOOOG 

011360 013761 OOOOOOG OOOOOOG 

011366 013761 OOOOOOG OOOOOOG 



011374 032700 OOOOOOG 
011400 001054 



At this point, the generic modem status <MS$xxx flags) is in RO. 
See if the phone is ringing 

ils system being stopped? 

; I3r if yes 

ils 1 ine ring ing? 

J Br if not 

; Have lue enabled ansuierT' 

J Br if yes 

Time to answer ringing phone 



TSTB 


STPFLG 


BNE 


5* 


BIT 


#MS«RNG/ RO 


BEQ 


5« 


BIT 


#MS*DTR, RO 


BNE 


5* 



BIS 
CALL 
MOV 
MOV 



#MS*DTR. RO 
@CDSDSS<R2) 



; Enable answer 

i Set data set status 
VTMIN, LCDTIM<R1 )i Start carrier-down timer 
VONTM, LOFFTM<Rl)i Drop DTR if not logged on by this time 



Check status of carrier on dial-up lines. 



5*: 



BIT #MS*CAR,RO 
BNE 16* 

Carrier is down 



11*: 



011402 005361 OOOOOOG 

011406 003057 

011410 042761 OOOOOOG OOOOOOG 

011416 032761 OOOOOOG OOOOOOG 

011424 001407 

011426 105737 OOOOOOG 

011432 001004 

011434 032761 OOOOOOG OOOOOOG 

011442 001436 

011444 052761 OOOOOOG OOOOOOG 1* 

011452 032761 OOOOOOG OOOOOOG 

011460 001415 

011462 032761 OOOOOOC OOOOOOG 

011470 001026 

011472 032761 OOOOOOG OOOOOOG 

011500 001022 

011502 010100 



DEC 


LCDTIM<R1) 


BGT 


8* 


BIC 


#«CARUP,LSW3<R1) 


BIT 


#*DILUP,LSW<R1> 


BEQ 


1* 


TSTB 


VUSPHN 


BNE 


1* 


BIT 


#*CARMN. LSW5<R1 ) 


BEQ 


17* 


BIS 


#*NOIN, LSW3<R1) 


BIT 


#*DILUP.LSW<R1) 


BEQ 


21* 


BIT 


#<*DISCN+*DOOFF> 


BNE 


8* 


BIT 


#*LOFCF, LSW9(R1) 


BNE 


8* 


MOV 


R1,R0 



; Is carrier up or down?" 
; Br if up 



Has it been down very long? 

Br if not 

Remember that we have lost carrier 

Is line active? 

Br if not 

Should we always mon. carrier for line? 

Br if so 

Are we monitoring carrier for this line? 

Br if not 

Ignore tt input from the line 

Is line active? 

Br if not 

LSW<Rl);Are we logging off line now? 

Br if yes — that takes care of it 

Are we doing logoff command file now? 

Br if yes 

Get index of job being aborted 
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58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 



011504 

011512 000415 

011514 042700 OOOOOOG 

011520 004772 OOOOOOG 

011524 005061 OOOOOOG 

011530 000403 



OCALL 


KILJOB 


BR 


8* 


21*: BIG 


#MS*DTR, RO 


CALL 


@CDSDSS<R2) 


CLR 


L0FFTM<R1) 


BR 


17* 


i Carrier is 
> 


up 



J Kill the job 

i Drop data terminal ready (hang up) 
; Set data set status 
; Clear logoff timer 



011532 052761 OOOOOOG OOOOOOG 16*: BIS #*CARUP, LSW3<Ri )* Remember carrier is up 

i 

i Reset lost-carrier timer 

011540 013761 OOOOOOG OOOOOOG 17*: MOV VTMOUT> LCDTIM<Ri ); Reset carrier-lost timer 

If jobs on dial-up lines remain in a logged off state for more than 
a specified interval* drop DTR to hang up on them. 



OOOOOOG 
OOOOOOG 



011546 005761 

011552 001407 

011554 005361 

011560 003004 

011562 042700 OOOOOOG 

011566 004772 OOOOOOG 



011572 012602 
011574 000207 



8$: 



6*: 



TST 


LOFFTM(Rl) 


BEQ 


6* 


DEC 


L0FFTM<R1) 


BGT 


6* 


BIC 


#MS*DTR> RO 


CALL 


eCDSDSS(R2) 


Finished 




MOV 


<SP)+, R2 


RETURN 





; Do we need to check time for this jobi 

i Br if not 

} Is it time to drop DTR for this line? 

; Br if not 

; Drop data terminal ready <hang up) 

; Set data set status 



€ 

I 

I 
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3 

4 

5 

6 

7 

S 

9 

10 

11 

12 

13 

14 

15 

16 

17 

le 

19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 



011576 010346 
011600 005000 



011602 017103 OOOOOOG 



011606 032703 OOOOOOG 

011612 001402 

011614 052700 OOOOOOG 



011620 032703 OOOOOOG 

011624 001402 

011626 052700 OOOOOOG 



011632 032703 OOOOOOG 

011636 001402 

011640 052700 OOOOOOG 



011644 012603 
011646 000207 



. SBTTL DLGDSS — Get data set status for DLll line 

DLGDSS is called to get the data set status for a DLll line. 

Inputs: 
Rl = Physical line index number. 

Outputs: 
RO = Generic data set status flags <MS*xxx> 



DLGDSS: MOV 
CLR 



R3, -<SP) 
RO 



i Form result in RO 
Get contents of DLll receiver status register 



MOV eRSR(Rl)>R3 

See if line is ringing 

BIT #RING, R3 

BEQ 1* 

BIS #MS*RNG, RO 

See if carrier is up or down 

1$: BIT #CARDET, R3 
BEQ 2* 
BIS #MS*CAR>RO 



Get receiver status register contents 



i Is phone ringing? 

; Br if not 

i Set ring flag 



> Is carrier up or down? 

; Br if down 

; Set carrier-up flag 



See if Data Terminal Ready is asserted 



?*: 



BIT 
BEQ 
BIS 

Finished 



3*: 



MOV 
RETURN 



#TRMRDY, R3 
3* 
#MS*DTR, RO 



(SP)+i R3 



i Is DTR asserted? 

} Br if not 

i Set DTR flag 
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011650 



011650 032700 0000000 
011654 001404 



011656 052771 OOOOOOG OOOOOOG 
011664 000403 



■> Drop DTR 
011666 042771 OOOOOOG OOOOOOG 1$: BIG 

f 

i Finished 

i 

011674 000207 9*: RETURN 



. SBTTL DLSDSS — Set data set status for DLll line 

DLSDSS is called to set data set control status for a DLll line. 

Inputs: 
Rl = Physical line indesf number. 
RO = Control flags <MS*DTR) 

DLSDSS: 

See if we should set or drop DTR 

iSet or drop DTR? 
i Br to drop DTR 

#TRMRDY. @RSR(R1 )> Set Data Terminal Ready 



BIT 


#MS*DTR, RO 


BEQ 


1* 


i Set DTR 




BIS 


#TRMRDY, @R 


BR 


9* 



#TRMRDY, @RSR(R1); Drop DTR 
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Control break transmission for a DLll line 



1 

3 
4 
5 
6 
7 
8 
9 
10 
11 

12 

1 rt 

J, i-# 

14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 



011676 



011676 032700 OOOOOOG 
011702 001404 



011704 052771 OOOOOOG OOOOOOG 
011712 000403 



. SBTTL DLSBRK — Control break transmission for a DLll line 

DLSBRK is called to start or stop sending a break character to a DLll line. 

Inputs: 
Rl = Physical line number. 
RO = Break control flag <MS*BRK) 

DLSBRK: 

See if uje are to start or stop transmitting a break 



BIT #MS$BRK, RO 
BEQ 1* 

Start transmitting a break 



j tistarw or stop wreak : 
.; Br if stop 



BIS #TRBRKi @TSR<R1 ) ; Start transmitting a break 
BR 9* 



J Stop transmitting a break 
011714 042771 OOOOOOG OOOOOOG 1*: BIC #TRBRK, STSR (Rl ) > Stop transmitting a break 

; Finished 

i 

011722 000207 9*: RETURN 
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011724 


010246 
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13 


011726 


110061 


00000 IG 


14 


011732 


010002 




15 


011734 


072227 


000014 


16 


011740 


052702 


004000 


17 


011744 






18 


011752 


017146 


0000000 


19 


011756 


042716 


170000 


20 


011762 


050216 




21 


011764 


012671 


OOOOOOG 


22 


011770 
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24 
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26 


011776 


012602 




27 


012000 


000207 
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. SBTTL DLSSPD — Set transmission speed for DLll line 

DLSSPD is called to set the transmission speed for a DLll line. 

Inputs: 
RO = Speed code. 
Rl = Physical line index number. 

DLSSPD: MOV R2, -(SP) 

Set speed in DLll control register 



J Get speed code 

iPosition the speed code 

> Set programmable-baud-rate-enable bit 
** Disable interrupts *•«■ 
Get current transmitter status 
Clear the baud rate field 
Set new baud rate value 
Store new value for transmitter 
*» Enable interrupts «•* 



MOVB 


RO, LMXPRM+KRl 


MOV 


RO, R2 


ASH 


#12. ,R2 


BIS 


#004000, R2 


DI3ABL 




MOV 


@TSR<R1),-<SP) 


BIC 


#170000, (SP) 


BIS 


R2, (SP) 


MOV 


<SP)+, eTSR<Rl) 


ENABL 




Finished 




MOV 


<SP)+, R2 


RETURN 
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i 
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— Misc 


. TSX-Pl 


us Execu 


DZGDSS - 

1 
2 
3 


— Get d 


ata set 


status f 








4 








5 








6 








7 








8 








9 








10 








11 


012002 


010246 




12 


012004 


010346 




13 


012006 


005000 




14 








15 








16 








17 


012010 


016102 


OOOOOOG 


IS 


012014 


016103 


OOOOOOG 


19 


012020 


116303 


001312' 


20 








21 








22 








23 


012024 


130372 


OOOOOOG 


24 


012030 


001402 




25 


012032 


052700 


OOOOOOG 


26 








27 








28 








29 


012036 


130372 


OOOOOOG 


30 


012042 


001402 




31 


012044 


052700 


OOOOOOG 


32 








33 








34 








35 


012050 


130372 


OOOOOOG 


36 


012054 


001402 




37 


012056 


052700 


OOOOOOG 


38 








39 








40 








41 


012062 


012603 




42 


012064 


012602 




43 


012066 


000207 
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. SBTTL DZGDSS — Get data set status for DZll line 

DZGDSS is called to get the data set status for a DZll line 

Inputs: 
Rl = Physical line index number. 

Outputs: 
RO == Generic data set status flags (MS*xxx) 



DZGDSS: MOV 
MOV 
CLR 



R2, -<SP) 
R3, -<SP) 
RO 



Get DZll index number 



MOV 
MOV 
MOVB 

See if line 

BITB 
BEQ 

BIS 



LMXNUM<R1)> R2 

LMXLN<R1)>R3 

MXLBIT(R3),R3 

is ringing 

R3, @MXRING(R2) 

1* 

#MS*RNG. RO 



See if carrier is up 



1*: 



BITB R3, eMXCAR(R2) 

BEQ 2* 

BIS #MS*CAR,RO 



;Build result in RO 



i Get DZl 1 number 

;Oet # of line within DZll group <0-7> 

; Get line select bit for DZll registers 



Is this line ringing? 
Br if not 
Set ring flag 



i Is carrier up or down? 

j Br if down 

J Set carrier-up flag 



See if Data Terminal Ready is asserted 



>*: 



3*: 



BITB 


R3ieMXDTR<R2> 


; Is DTR asserted? 


BEQ 


3* 


; Br if not 


BIS 


#MS*DTR, RO 


iSet DTR flag 


Finished 






MOV 


(SP)+, R3 




MOV 


<SP)+, R2 




RETURN 
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Set data set status for a DZll line 
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19 

20 

21 

22 

23 

24 

25 
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27 
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29 
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32 

33 

34 

35 
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012070 010246 
012072 010346 



012074 016102 OOOOOOG 
012100 016103 OOOOOOG 
012104 116303 001312' 



012110 032700 OOOOOOG 
012114 001003 



012116 140372 OOOOOOG 
012122 000402 



012124 150372 OOOOOOG 



012130 012603 
012132 012602 
012134 000207 



. SBTTL DZSDSS — Set data set status for a DZil line 

DZSDSS is called to set data set status for a DZll line. 

Inputs: 
Rl = Physical line number. 
RO = Data set status flags <MS*DTR). 



DZSDSS: 


MOV 


R2, -(SP) 




MOV 


R3, -<SP) 


i Get 


DZll ind 


ex number 




MOV 


LMXNUM<R1)>R2 




MOV 


LMXLN<R1), R3 




MOVB 


MXLBIT<R3),R3 


> See 


if we sh 


ould set or dr 




BIT 


#MS*DTR, RO 




BNE 


1* 


; Drop 


> DTR 






BICB 


R3, eMXDTR<R2) 




BR 


9* 


; Set 


DTR 




1$; 


BISB 


R3, eMXDTR<R2> 


i Finished 




9*: 


MOV 


<SP)+, R3 




MOV 


(SP)+, R2 




RETURN 





Get DZil number 

Get line # within DZll <0--7> 

Get line select bit 



;Set or drop DTR? 
i Br if set DTR 



i Clear DTR flag for our line 



i Set DTR flag for our line 
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1 
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4 

5 

6 

7 

8 

9 

10 

11 

12 

•I r> 

14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 



012136 010246 
012140 010346 
012142 010446 



012144 016102 OOOOOOG 

012150 016103 OOOOOOG 
012154 116303 001312' 



012160 116204 OOOOOOG 

012164 140304 

012166 032700 OOOOOOG 

012172 001401 

012174 150304 



012176 110472 OOOOOOG 
012302 110462 OOOOOOG 



012206 012604 

012210 012603 

012212 012602 

012214 000207 



SBTTL DZSBRK 



Control break transmission for a DZli line 



DZSBRK is called to start or stop transmitting a break character 
to a DZll line. 



Inputs: 
RO = Break control flag <MS*BRK) 
Rl = Physical line index number. 



DZSBRK: 



MOV 
MOV 
MOV 



R2, ~<SP) 
R3. -(SP) 
R4, -<SP) 



Get DZll index number 

MOV LMXNUM<R1)>R2 
MOV LMXLN(R1).R3 
MOVB MXLBIT<R3),R3 



; Get DZl 1 number 

iGet line # uithin DZll <0-7) 

i Get line select bit 



We keep a "shadow" copy of the break register in memory since we 
cannot read the status of the hardware break register. 

; Get contents of shadow register 

i Assume we want to stop sending break 

J Do we want to start sending break? 

; Br if not 

i Set break flag for the line 

Set new break control flags in hardware register and shadow register 



MOVB 


MXSBRK(R2). R4 


BICB 


R3, R4 


BIT 


#MS*BRK, RO 


BEQ 


1* 


BISB 


R3, R4 



1$: 



9*: 



MOVB 
MOVB 

Finished 

MOV 
MOV 
MOV 
RETURN 



R4, eMXBRK(R2) 
R4, MXSBRK<R2) 



(SP)+. R4 
(SP)+, R3 
(SP)+, R2 



; Set status in hardware register 
; Update shadow register 
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012216 


010346 
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012220 


110061 


00000 IG 


14 


012224 


010003 




15 


012226 


042703 


ooooooc 


16 


012232 


000303 




17 


012234 


032700 


ooooooe 


IS 


012240 


001003 




19 


012242 


052703 


OOOOOOG 


20 


012346 


000402 




21 


012250 


052703 


OOOOOOG 


22 


012254 


032700 


OOOOOOG 


23 


012260 


001407 




24 


012262 


052703 


OOOOOOG 


25 


012266 


032700 


OOOOOOG 


26 


012272 


001402 




27 


012274 


052703 


OOOOOOG 


28 








29 








30 








31 


012300 


052703 


010000 


32 


012304 


056103 


OOOOOOG 


33 


012310 


016100 


OOOOOOG 


34 


012314 


010370 


OOOOOOG 
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012320 


012603 




39 


012322 


000207 





3 V05. 05 Wednesday 18-Jan-89 15:26 Page 38 
a DZll line 



. SBTTL DZSSPD — Set transmission speed for a DZll line 

DZSSPD is called to set the transmit/receive speed for a DZll line. 

Inputs: 
RO = Speed code. 
Rl = Physical line index number. 



DZSSPD: MOV R3, -<SP) 

Build line parameter register value 



1*: 
2*: 



Store LPR value for line 



3*: 



BIS 
BIS 
MOV 
MOV 

Fini shed 



MOV 
RETURN 



#10000, R3 
LMXLN<R1),R3 
LMXNUM<R1),R0 
R3, eMXLPR(RO) 



<SP)+, R3 



MOVE 


RO, LMXPRM+KRl) i 


MOV 


RO, R3 i 


BIC 


#^C<LP*SPD>, R3 ; 


SWAB 


R3 i 


BIT 


#LP*7BT, RO ; 


BNE 


1* i 


BIS 


#DZ*SBT, R3 ; 


BR 


2* 


BIS 


#DZ*7BT, R3 i 


BIT 


#LP*PAR, RO } 


BEQ 


3* J 


BIS 


#DZ«PAR, R3 ; 


BIT 


#LP*ODD, RO ; 


BEQ 


3* ; 


BIS 


#DZ*ODDi R3 i 



Save new parameter flags 

Get speed code 

Clear all but speed code 

Position speed code to match LPR field 

Are 7 bit characters wanted"' 

Br if yes 

Select 8 bit characters 

Select 7 bit characters 

Is parity wanted? 

Br if not 

Enable parity 

Is odd parity wanted? 

Br if not 

Select odd parity 



Set receiver-on flag 

Get line within mux <0-7> 

Get DZll number 

Set speed for the line 



< 
t 

I 
( 
I 

i 

I 
€ 
< 
I 
i 
i 
< 
I 
I 
f 
c 
I 
I 
< 



f 



I. 



I 
( 
I 
i 
I 
( 
I 

4 

i 



TSEXC2 
DHGDSS - 

1 

1=. 

3 

4 

5 

6 

7 

S 

9 

10 

11 

12 

13 

14 

15 

16 

1 -T 
4. / 

18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
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. SBTTL DHGDSS — Get data set status for a DHll line 

DHGDSS is called to get the data set status for a DHll line. 

Inputs: 
Rl = Physical line number 

Outputs: 
RO = Generic modem status flags <MS*xxx) 



012324 

012326 
n 1 nnrtn 



012336 



012342 
012350 
012356 
012362 
012366 



012374 
012400 

012402 



012406 
012412 
012414 



012420 
012424 
012426 



012432 
012434 
012436 



010246 
010346 



DHGDSS: MOV 

MOV 



R2, -<SP) 
R3, -<SP) 
RO 



016102 
016103 



OOOOOOG 
OOOOOOG 



wet DHll index number 

MOV LMXNUM(R1>,R2 
MOV LMXLN(R1),R3 

Get modem status 



042772 
050372 
017203 



OOOOOOG OOOOOOG 

OOOOOOG 

OOOOOOG 



DISAQL 

BIC 

BIS 

MOV 

ENABL 



Build result in RO 



Get DHll index number 

Get line within DHll <0-15) 



; j ** Disable interrupts ** 



#MF*LIN, @DM«CSR<R2) iiiClear DM11 line select field 



R3> eDM*CSR(R2) 
@DM*LSR<R2)>R3 



032703 
001402 
052700 



032703 
001402 
052700 



032703 
001402 
052700 



012603 
012602 
000207 



OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 



1*: 



See if phone is ringing 

BIT #MF*RNO, R3 

BEQ 1* 

BIS #MS*RNG, RO 

See if carrier is detected 

BIT #MF*CAR, R3 

BEQ 2* 

BIS #MS*CAR,RO 



;; Select 1 ine 

; ; Get line status value 

** Enable interrupts ** 



Is the phone ringing? 
Br if not 
Set ring flag 



; Is carrier detected? 

; Br if not 

; Set carrier flag 



See if Data Terminal Ready is asserted 



?*: 



BIT 
BEQ 
BIS 

Finished 



3*: 



MOV 
MOV 
RETURN 



#MF*DTR.R3 
3* 
#MS*DTR, RO 



(SP)+, R3 
(SP)+, R2 



; Is DTR asserted? 
J Br if not 
; Set DTR flag 
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. SBTTL DHSDSS — Set data set status for a DHll line 

DHSDSS is called to set the data set status for a DHll line. 

Inputs: 
Rl = Physical line index number. 
RO = Data set status flags <MS*DTR) 



012440 010246 
012442 010346 



DHSDSS: MOV 
MOV 



R2, -<SP) 
R3, -<SP) 



Get modem index number and select our line 



012444 
012450 
012454 
012462 
012470 



016102 OOOOOOG 

016103 OOOOOOG 

042772 OOOOOOG OOOOOOG 

050372 OOOOOOG 



MOV 

MOV 

DISABL 

BIG 

BIS 



LMXNUM(R1),R2 
LMXLN<R1). R3 



i Get DHll index number 

;Get line # within DHll <0-15) 

; j ; *» Disable interrupts ** 

#MF*LIN> eDM$CSR<R2) iiiClear DM11 line # field 

R3, eDM*CSR<R2) >iiSelect our line 



See if we should set or drop Data Terminal Ready 



012474 032700 OOOOOOG 

012500 001004 

012502 042772 OOOOOOG OOOOOOG 

012510 000403 

012512 052772 OOOOOOG OOOOOOG 1*: 



BIT 

BNE 

BIC 

BR 

BIS 

Fini shed 



#MS*DTR, RO ■> ■> > Set or drop DTR' 

1* ; i ; Br to set DTR 

#MF«DTR, @DM«L3R(R2) i i i Drop DTR 

9* 

#MF*DTRi@DM*LSR<R2)i i iSet DTR 



012520 

012526 012603 

012530 012602 

012532 000207 



9*: 



ENABL 
MOV 
MOV 
RETURN 



i ** Enable interrupts *« 



(SP)+> R3 
(SP)+, R2 
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7 








< 8 








9 








10 


012534 


010246 




< 11 


012536 


010346 




12 


012540 


010446 




13 








< 14 








15 








16 


012542 


110061 


00000 IG 


< 17 








18 








19 








1 20 


012546 


010003 




21 


012550 


042703 


ooooooc 


22 


012554 


116303 


001352' 


1 23 








24 








25 








1 26 


012560 


016102 


0000000 


27 


012564 


116104 


ooooooe 


28 


012570 


052704 


ooooooe 


t 29 








30 








31 








< 32 


012574 


072327 


000006 


33 


012600 


010346 




34 


012602 


072327 


000004 


• 35 


012606 


052603 




36 


012610 


032700 


ooooooe 


37 


012614 


001003 




i 38 


012616 


052703 


OOOOOOG 


39 


012622 


000402 




40 


012624 


052703 


ooooooe 


( 41 


012630 


032700 


OOOOOOG 


42 


012634 


001407 




43 


012636 


052703 


OOOOOOG 


« 44 


012642 


032700 


ooooooe 


45 


012646 


001402 




46 


012650 


052703 


ooooooe 


( 47 








48 








49 








♦ 50 


012654 






51 


012662 


110472 


ooooooe 


52 


012666 


010372 


ooooooe 


* 53 


012672 






54 








55 








« 56 








57 


012700 


012604 
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. SBTTL DHSSPD — Set transmit/receive speed for DHll line 

DHSSPD is called to set the transmit/receive speed for a DHll line. 
The parity and character length parameters are also set. 

Inputs: 
RO = Speed> length* and parity codes. 
Rl = Physical line index number. 



DHSSPD: MOV 
MOV 
MOV 



R2, -(SP) 
R3, -<SP) 
R4, -(SP) 



Update the LMXPRM table for this line 

MOVE R0» LMXPRM+KRl ) ; Store new codes for lini 
Convert TSX-Plus speed code into DHll speed code 



MOV RO, R3 

BIC #-^C<LP«SPD>, R3 

MOVB DHSPCT<R3),R3 

Get DHll index number 

MOV LMXNUM(Rl), R2 

MOVB LMXLN<R1);R4 

BIS #HF*RIE, R4 



i eet speed code 

iClear all but speed code 

J Convert to DHll speed code 



Get DHll index number 

Get # of line within mux group 

Set receiver interrupt enable flag 



Build value to use for line parameter register 



1*: 
2«: 



ASH #6i R3 

MOV R3, -(SP) 

ASH #4, R3 

BIS (SP)+,R3 

BIT #LP*7BT. RO 

BNE 1* 

BIS #HF*SBT. R3 

BR 2* 

BIS #HF«7BT, R3 

BIT #LP$PAR,RO 

BEQ 3* 

BIS #HF*PAR>R3 

BIT #LP*ODD, RO 

BEQ 3* 

BIS #HF«0DD>R3 



Position speed code for receive speed 

Save positioned receive speed 

Position code for transmit speed 

Combine transmit and receive speed codes 

7 bit characters wanted? 

Br if yes 

Select 8 bit characters 

Select 7 bit characters 

Parity wanted? 

Br if not 

Enable parity 

Odd parity wanted? 

Br if not 

Select odd parity 



Select LPR register for line being set and store the LPR value 



3*: 



DISABL 
MOVB 
MOV 
ENABL 



Fini shed 
MOV 



; ; i «« Disable interrupts «•* 
R4.. SMH*SCR(R2) jiiSelect our mux line 
R3, @MH*LPR(R2) ; i i Store the LPR value for this line 



(SP)+, R4 
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( 
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I 
I 
( 



58 012702 012603 

59 012704 012602 

60 012706 000207 



MOV 
MOV 
RETURN 



(SP>+, R3 
(3P )+> R2 



i 

< 
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I 

4 
I 
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I 
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1 

c 

3 

4 

5 

6 

7 

B 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

2t3 

26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 



012710 010246 
012712 010346 



012714 016102 OOOOOOG 

012720 016103 OOOOOOG 

012724 006303 

012726 016303 001252' 



012732 032700 OOOOOOG 
012736 001403 



012740 050372 
012744 000402 



OOOOOOG 



012746 040372 OOOOOOG 



012752 012603 
012754 012602 
012756 000207 



. SBTTL DHSBRK — Control break transmission for a DHll line 

DHSBRK is called to start or stop transmitting a break to a DHll line. 

Inputs: 
RO = Break control flag (MS*BRK) 
Rl ~ Line index number 



DHSBRK: MOV 
MOV 



R2, -<SP) 
R3. -(SP) 



Get DHll index number and line select flag 



MOV LMXNUM(R1)/R2 

MOV LMXLN<R1),R3 

ASL R3 

MOV DHLBIT(R3), R3 



i Get DHll index number 

;Get line within DHll <0-15) 

; Convert line # to word table index 

i Get flag bit corresponding to line # 



See if we should start or stop sending a break 



BIT #MS*BRK. RO 
BEQ i« 



i Start or stop sending break? 
i Br if stop 



Start sending a break to this line 



BIS R3. @MH«BRK(R2) 
BR 9* 



i Set break flag for our line 



Stop sending a break to this line 

BIC R3* eMH*BRK<R2) ; Stop sending a break to this line 
Finished 



9*: 



MOV 
MOV 
RETURN 



<SP)+, R3 
<SP)+, R2 



I 
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TSEXC2 
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1 
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— Get d 


ata set 


status f 








4 








5 








6 








7 








8 








9 








10 








11 


012760 


010246 




12 


012762 


010346 




13 


012764 


010446 




14 


012766 


005000 




15 








16 








17 








IS 


012770 


016102 


OOOOOOG 


19 


012774 


016103 


OOOOOOG 


20 


013000 


052703 


OOOOOOG 


21 








22 








23 








24 


013004 






25 


013012 


110372 


OOOOOOG 


26 


013016 


017204 


OOOOOOG 


27 


013022 


017203 


OOOOOOG 


28 


013026 






29 








30 








31 








32 


013034 


032703 


OOOOOOG 


33 


013040 


001402 




34 


013042 


052700 


OOOOOOG 


35 








36 








37 








38 


013046 


032703 


OOOOOOG 


39 


013052 


001402 




40 


013054 


052700 


OOOOOOG 


41 








42 








43 








44 


013060 


032704 


OOOOOOG 


45 


013064 


001402 




46 


013066 


052700 


OOOOOOG 


47 








48 








49 








50 


013072 


012604 




51 


013074 


012603 




52 


013076 


012602 




53 


013100 


000207 
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. SBTTL VHGDSS — Get data set status for a DHVl 1 line 

VHGDSS is called to get the data set status for a DHVll line. 

Inputs: 
Rl = Physical line index number. 

Outputs: 

RO = Generic modem status flags <MS*xxx) 



VHGDSS: MOV 
MOV 
MOV 
CLR 



R2, -<SP) 
R3, -(SP) 
R4, -(SP) 
RO 



» Form result in RO 
Get DHVll index number and line number 



MOV 
MOV 
BIS 



LMXNUM<R1). R2 
LMXLN<R1)> R3 
#VF*RIE. R3 



1*: 



Get modem status 

DISABL 

MOVE R3, eVH*CSR ( R2 ) 

MOV @VH«LCR<R2),R4 

MOV SVH*LSR ( R2 ) . R3 

ENABL 

See if line is ringing 

BIT #VF«RNG, R3 

BEQ 1$ 

BIS #MS*RNG, RO 

See if carrier is up 

BIT #VF*DCD, R3 

BEQ 2* 

BIS #MS*CAR. RO 



Get mux index number 

Get line # ujithin mux group 

Set receiver interrupt enable flag 



i i #* Disable interrupts *«■ 
;; Select our line in mux 
i ; Get line control register 
: ; Get current line status 
«* Enable interrupts 



i Is the line ringing? 

i Br if not 

} Set ringing flag 



i Is carrier detected? 

; Br if not 

; Set carrier flag 



See if Data Terminal Readu is asserted 



?*: 



3«: 



BIT 


#VF*DTR, 


BEQ 


3* 


BIS 


#MS*DTR, 


Finished 




MOV 


<SP)+, R4 


MOV 


<SP)+, R3 


MOV 


(SP)+, R2 


RETURN 





ils Data Terminal Ready asserted? 

; Br if not 

i Set DTR flag 



c 
i 

i 



i 
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. SBTTL VHSDSS — Set data set status for a DHVll line 

VHSDSS is called to set the data set status for a DHVll line. 

Inputs: 
Rl = Physical line index number. 
RO = Data set status flaas (MS*DTR). 



013102 010246 
013104 010346 



013106 016102 OOOOOOG 
013112 016103 OOOOOOG 
013116 052703 OOOOOOG 



VHSDSS: MOV 
MOV 



R2, -(SP) 
R3, -<SP) 



Get DHVll mux index number and line number 



MOV LMXNUM<R1), R2 
MOV LMXLN<R1>,R3 
BIS #VF«RIE, R3 



Get mux index number 

Get # of line within mux group 

Set receiver interrupt enable flag 



Set or drop the Data Terminajt. Ready flag 



013122 DISABL 

013130 110372 OOOOOOG MOVE 

013134 032700 OOOOOOG BIT 

013140 001004 BNE 

013142 042772 OOOOOOG OOOOOOG BIC 

013150 000403 BR 

013152 052772 OOOOOOG OOOOOOG 1*: BIS 



R3ieVH*CSR(R2) 
#MS*DTR, RO 
1« 



j ** Disable interrupts ** 
i Select our line in mux 
i Set or drop DTR? 
; Br if luant to set DTR 



#VF*DTR, @VH*LCR(R2)i i i Clear DTR bit 



#VF*DTR. @VH*LCR<R2)i i ; Set DTR bit 



Fini shed 



013160 

013166 012603 

013170 012602 

013172 000207 



>*: 



ENABL 
MOV 
MOV 
RETURN 



«* Enable interrupts ^«- 



(SP)+, R3 
<SP)+, R2 



i 
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— Misc 


. TSX-Pl 


us Execu 
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1 
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3 


-- Set t 


ransmit/ 
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4 








5 








6 








7 








8 








7 


013174 


010246 




10 


013176 


010346 




11 


013200 


010446 




12 








13 








14 








15 


013202 


110061 


00000 le 


16 








17 








18 








19 


013206 


010003 




20 


013210 


042703 


OOOOOOC 


21 


013214 


116303 


001372' 


22 








23 








24 








25 


013220 


016102 


OOOOOOG 


26 


013224 


116104 


OOOOOOG 


27 


013230 


052704 


OOOOOOG 


28 








29 








30 








31 


013234 


000303 




32 


013236 


010346 




33 


013240 


072327 


000004 


34 


013244 


052603 




35 


013246 


032700 


OOOOOOG 


36 


013252 


001003 




37 


013254 


052703 


OOOOOOG 


38 


013260 


000402 




39 


013262 


052703 


OOOOOOG 


40 


013266 


032700 


OOOOOOG 


41 


013272 


001407 




42 


013274 


052703 


OOOOOOG 


43 


013300 


032700 


OOOOOOG 


44 


013304 


001002 




45 


013306 


052703 


OOOOOOG 


46 








47 








48 








49 


013312 






50 


013320 


110472 


OOOOOOG 


51 


013324 


010372 


OOOOOOG 


52 


013330 






53 








54 








55 








56 


013336 


012604 




57 


013340 


012603 





. SBTTL VHSSPD — Set transmit/receive speed for a DHVll line 

Set the transmit/receive speed for a DHVll line. 

Inputs: 
RO = Speed code. 
Rl = Line index number 



VHSSPD: 



MOV 
MOV 
MOV 



R2, -(SP) 
R3, -<SP) 
R4, -<SP) 



Update the LMXPRM table for this line 

MOVE RO, LMXPRM+KRl) ; Store flags for line 
Convert TSX-Plus speed code into DHVll speed code 



MOV RO, R3 

BIC #-^C<LP*SPD>, R3 

MOVB VHSPCT(R3), R3 

Get DHVll index number 

MOV LMXNUM<R1), R2 

MOVB LMXLN<R1),R4 

BIS #VF*RIE;R4 



; Get flags 

;Clear all but speed flags 

/Convert to DHVll speed code 



i Get DHVll index number 

; Get line # within mux group 

•Set receiver interrupt enable flag 



2*: 
3*: 



Construct line parameter value for this line 

iPosition speed for receive speed 

; Position speed for transmit speed 

i Combine receive and transmit speeds 

i7 bit characters uianted 

j Br if yes 

i Set 8 bit characters 



Set 7 bit characters 

Parity wanted? 

Br if not 

Enable parity 

Odd parity wanted? 

Br if yes 

Select even parity 



Select our line and store the parameter value 



SMAB 


R3 


MOV 


R3i-(SP) 


ASH 


#4, R3 


BIS 


(SP)+, R3 


BIT 


#LP*7BT, RO 


BNE 


2« 


BIS 


#VF*8BT, R3 


BR 


3* 


BIS 


#VF*7BT> R3 


BIT 


#LP*PAR, RO 


BEQ 


1* 


BIS 


#VF*PAR, R3 


BIT 


#LP*ODD, RO 


BNE 


1* 


BIS 


#VF*EVN, R3 



1*: 



DISABL 
MOVB 
MOV 
ENABL 



R4,eVH*CSR(R2) 
R3, eVH$LPR(R2) 



i #* Disable interrupts ** 
i Select our mux line 
i Set LPR value for this line 
J «« Enable interrupts «•* 



Fini shed 

MOV 
MOV 



i 

i 

( 

I 

I 



(SP)+, R4 
(SP)+, R3 
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VHSSPD — Set transmit/receive speed for a DHVll line 

58 013342 012602 MOV <SP>+, R2 

59 013344 000207 RETURN 
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. SBTTL VHSBRK — Control break transmission for a DHVll line 

Start or stop transmitting a break to a DHVll line. 

Inputs: 
RO = Break control flag (MS*BRK) 
Rl = Line index number 



013346 010246 
013350 010346 



013352 016102 OOOOOOG 
013356 016103 OOOOOOG 
013362 052703 OOOOOOG 



VHSBRK: MOV 
MOV 



R2, -<SP) 
R3. -<SP) 



Get mux index number and line number 



MOV LMXNUM<Ri}.R2 
MOV LMXLN(R1).R3 
BIS #VF*RIE, R3 



i Get mux index number 

i Get # of line within mux 

i Set receiver interrupt enable flag 



Set or drop the break control flag within the line control register 



013366 DISABL 

013374 110372 OOOOOOG MOVE 

013400 032700 OOOOOOG BIT 

013404 001404 BEQ 

013406 052772 OOOOOOG OOOOOOG BIS 

013414 000403 BR 

013416 042772 OOOOOOG OOOOOOG 1*: BIC 



** Disable interrupts ** 

Select our mux line 

Start or stop break?" 

Br if stop 

i ; Set the break flag for the line 



R3, eVH*CSR<R2) 

#MS*BRK, RO 

1* 

#VF*BC , eVH*LCR < R2 ) . 

2* 

#VF*BC, @VH*LCR(R2); i i Clear the break flag for the line 



Finished 



013424 

013432 012603 

013434 012602 

013436 000207 



2*: 



ENABL 
MOV 
MOV 
RETURN 



; ## Enable interrupts ** 



(SP)+, R3 
<SP)+, R2 
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3 

4 

5 

6 

7 

8 

9 
10 
11 
12 

13 01 

14 01 
15 

16 
17 

15 01 

19 01 

20 01 

21 01 

22 01 

23 01 

24 01 

25 01 

26 01 



013440 



3440 
3446 



3450 
3456 
3460 
3466 
3470 
3476 
3504 
3512 
3520 



027127 OOOOOOG OOOOOOG 
101050 



032771 OOOOOOG OOOOOOG 

001424 

032761 OOOOOOG OOOOOOG 



001415 

042771 
052771 



27 oi; 

28 
29 
30 
31 01 



3530 
3536 
3540 
3546 
3550 
3556 
3562 



32 01 

33 01 

34 01 

35 01 

36 01 

37 01 
38 

39 
40 
41 013570 000207 



. SBTTL DLCLOK — Timer driven routine for DLll lines 

DLCLOK is a timer-driven routine called periodically to check on the 
status of a DLll line. 

Inputs: 
Rl = Physical line index number 

DLCLOK: 

See if this line has been stolen by some special device handler 

CMP gINyEC<Rl}> #INRECV; HAS LX HANDLER STOLEN INTERRUPT VECTOR 
BHI 20* ; BR IF YES 



Check for lost input interrupts 



OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 



000403 

052761 OOOOOOG OOOOOOG 15*: 



BIT 

BEQ 

BIT 

BEQ 

DISABL 

BIC 

BIS 

ENABL 

BR 

BIS 



#RCVDON. @RSR<R1) 

1* 

#*IITIM, LSW5<R1 ) 

15* 

#RDINT, eRSR(Rl) 
#RDINT, eRSR(Rl) 

1* 



IS AN INPUT CHAR PENDING NOW? 

BR IF NOT 

HAVE WE STARTED TIMER YET? 

BR IF NOT 

»» DISABLE #« (NEEDED FOR FLAKEY DLll'S) 

WE SEEM TO HAVE LOST AN INTERRUPT 

TRY TO FORCE AN INTERRUPT 

•«■# ENABLE ** 



#*IITIMiLSW5<Rl); START INPUT INTERRUPT TIMER 
Check for lost output interrupts 



032761 OOOOOOG OOOOOOG 1*: BIT 

001411 BEQ 

032761 OOOOOOG OOOOOOG BIT 

001410 BEQ 

042761 OOOOOOG OOOOOOG BIC 

004737 OOOOOOG CALL 

052761 OOOOOOG OOOOOOG 13*: BIS 



#*OITIM, LSW5<R1) 

13* 

#*XCHAR,LSW3(R1) 

20* 

#*XCHAR. LSW3(R1) 

DLSTRT 

#*OITIM, LSW5<R1) 



Have Mte started timer interval? 

Br if not 

Are uje still waiting for interrupt? 

Br if not 

Say wait is over 

Try to start transmitter 

Start timed interval 



Fini shed 
20*: RETURN 
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43 



. SBTTL DZCLOK — Timer driven routine for DZll lines 

DZCLOK is called periodically from the clock routine to check on the 
status of DZll lines. 

Inputs: 
Rl = Physical line index number 



13572 
13574 



13576 
13602 
13606 



13612 
13620 
13622 
13630 
13632 
13640 
13646 



13654 
13662 
13664 
13672 
13674 
13702 
13704 
13712 
13716 



010246 
010346 



016102 0000000 

016103 0000000 
116303 001312' 



DZCLOK: MOV 
MOV 



R2, -<SP) 
R3, -(SP) 



Get DZll mux index number and number of line within mux 



MOV 
MOV 
MOVB 



LMXLN<R1)> R3 
MXLBIT<R3>,R3 



; Get DZll mux index number 

; Get # of line within mux <0-7) 

i Get line select bit for mux register 



Check for lost input interrupts 



032772 OOOOOOG OOOOOOG 

001415 

032761 OOOOOOG OOOOOOG 

001406 

042772 OOOOOOG OOOOOOG 

052772 OOOOOOG OOOOOOG 

052761 OOOOOOG OOOOOOG 1*: 



BIT #RDONE, @MXCSR<R2)iDoes DZll have a pending input character? 

BEQ 3* iBr if not 

BIT #*IITIM, LSW5(R1 ); Have lue started input interrupt timer? 

BEQ 1« j Br if not 

BIG #RIE, ©MXCSR(R2) i Drop receiver interrupt enable 

BIS #RIE. eMXCSR(R2) j and raise it again to try to force interrupt 

BIS #*IITIM, LSW5<Rl)i Start input interrupt timer 



Check for lost output interrupts 



032761 

001415 

032761 

001414 

032761 

001010 

042761 OOOOOOG OOOOOOG 

004737 OOOOOOG 

052761 OOOOOOG OOOOOOG 13*: 



OOOOOOG OOOOOOG 3«: 
OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 



BIT 

BEQ 

BIT 

BEQ 

BIT 

BNE 

BIC 

CALL 

BIS 



Finished 



0] 
03 



13724 
13726 
44 013730 



012603 
012602 
000207 



9*: 



MOV 
MOV 
RETURN 



#*OITIM, LSW5<R1) 

13* 

#*XCHAR,LSW3(R1) 

9* 

#*CTRLS, LSW3<R1) 

9* 

#*XCHAR,LSW3<R1) 

DZSTRT 

#*OITIM, LSW5<Ri) 



<SP)+, R3 
<SP)+, R2 



Have we started timer interval? 

Br if not 

Are me still waiting for interrupt? 

Br if not 

Is output suspended due to ctrl-S? 

Br if yes 

Say wait is over 

Try to start transmitter 

Start timed interval 



i 

< 
f 

f 
( 

( 

I 

c 
i 
f 

t 
< 
I 
I 

I 

i 
i 
i 
i 



TSEXC2 
DHCLOK 



- Misc. TSX-Plus Execu MACRO V05. 05 Wednesday 18-Jan-S9 15:26 Page 49 
Timer driven routine for DHll lines 



1 

*-> 

CZ 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 



. SBTTL DHCLOK — Timer driven routine for DHll lines 



DHCLOK is called every 0.5 seconds from the clock driven routine to 
do checking for DHll and DHVll lines 

Inputs: 
Rl == Physical line index number. 



013732 
013732 



013732 052761 OOOOOOG 0000000 
013740 005237 OOOOOOG 



013744 000207 



VHCLOK: 
DHCLOK: 



Set flag which requests clock driven output processing for the line 



BIS 
INC 

Finished 

RETURN 



#*DHCDO, LSWIO(RI) 
NEDCDO 



i Request clock-driven output 
i Say clock processing needed 



f 
f 
ff 
f 

€ 

C 
I 
t 
I 

I 

c 

f 
i 

I 

€ 

i 
f 
i 
« 



i 
( 
I 
c 



TSEXC2 


— Misc 


. TSX-Pl 


us Execu 


SYSDIE - 

1 
2 

3 


- Fatal 


system 


halt 








4 








5 








6 








7 








e 








9 








10 








11 








12 








13 








14 








15 


013746 


010046 




16 


013750 


010146 




17 


013752 


010246 




IS 


013754 


010346 




19 


013756 


010446 




20 


013760 


010546 




21 








22 








23 








24 


013762 


005037 


OOOOOOG 


25 


013766 


005037 


OOOOOOG 


26 








27 








28 








29 


013772 


012701 


001056' 


30 


013776 


004737 


014330' 


31 








32 








33 








34 


014002 


013701 


OOOOOOG 


35 


014006 


004737 


014376' 


36 








37 








38 








39 


014012 


013701 


OOOOOOG 


40 


014016 


062701 


000002 ' 


41 


014022 


004737 


014330' 


42 








43 








44 








45 


014026 


012701 


001120' 


46 


014032 


004737 


014330' 


47 


014036 


013701 


OOOOOOG 


48 


014042 


004737 


014376' 


49 








50 








51 








52 








53 


014046 


013701 


OOOOOOG 


54 


014052 


001422 




55 








56 








57 
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SBTTL SYSDIE — Fatal system halt 



SYSDIE is entered from the system SYSHLT routine when a system 
crash is occurring because a DIE macro was executed. 

Inputs: 
DIEMSG ~ Address of error message to print. 
DIEARG = Argument value to print with error message. 
DIEPC = Address of call to SYSHLT. 
DIESP = Stack pointer at time of crash. 
TRPAR5 = Kernel PARS contents at time of crash. 



Save all registers on the stack. 



SYSDIE: MOV 
MOV 
MOV 
MOV 
MOV 
MOV 



RO, -<SP) 
R 1 , - < SP ) 
R2, -<SP) 
R3, -<SP) 
R4, -<SP) 
R5, -(SP) 



Initialize some cells that are used to pass information to TSDUMP 



CLR 
CLR 



DMPOVL 
DMPHND 



Print message heading. 



MOV 
CALL 



#TXFSE, Rl 
HLTPRT 



Print abort location. 



MOV 
CALL 



DIEPC, Rl 
HLTOCT 



Print error message. 

MOV DIEMSG, Rl 
ADD #DIEBAS, Rl 
CALL HLTPRT 

Print argument value. 



MOV 


#TXARO, Rl 


CALL 


HLTPRT 


MOV 


DIEARG, Rl 


CALL 


HLTOCT 



; Overlay name 
; Hand ler name 



; "FATAL SYSTEM ERROR, 
i PRINT IT 



; GET ADDRESS OF CALL TO SYSHLT 
i PRINT OCTAL VALUE 



i GET ADDRESS OF ERROR MESSAGE 
; PRINT IT 



"ARGUMENT VALUE ~ ' 
PRINT HEADING 
GET ARGUMENT VALUE 
PRINT OCTAL VALUE 



If the argument value is in the par 5 range, it is probably in 
a system overlay. 



MOV 
BEQ 



TRPAR5, Rl 
21* 



; Get the KPAR5 value 

j Br if zero ~ print value 



I 
I 
ff 

I 

i 

f 
t 

i 



Check for base address of system overlay region. 



i 
< 

i 
I 

( 

( 
I 
t 
i 



TSEXC2 


— Misc 


. TSX-Pl 


us Execu 


SYSDIE - 


— Fatal 


system 


halt 


58 


014054 


013700 


OOOOOOG 


59 


014060 


026001 


0000000 


60 


014064 


001426 




61 


014066 


062700 


000006 


62 


014072 


021027 


004537 


63 


014076 


001370 




64 








65 








66 








67 


014100 


013700 


OOOOOOG 


68 


014104 


026001 


OOOOOOG 


69 


014110 


001446 




70 


014112 


162700 


000002 


71 


014116 


002372 




72 








73 








74 








75 


014120 


012701 


001137' 


76 


014124 


004737 


014330' 


77 


014130 


013701 


OOOOOOG 


78 


014134 


004737 


014376' 


79 


014140 


000445 




80 








81 








82 








S3 


014142 


016004 


OOOOOOG 


84 


014146 


163700 


OOOOOOG 


85 


014152 


010003 




86 


014154 


005002 




87 


014156 


071227 


000006 


88 


014162 


005202 




89 


014164 


012701 


001155' 


90 


014170 


004737 


014330' 


91 


014174 


010201 




92 


014176 


004737 


014376' 


93 


014202 


012701 


001173' 


94 


014206 


004737 


014330' 


95 


014212 


010401 




96 


014214 


010137 


OOOOOOG 


97 


014220 


004737 


014454' 


98 


014224 


000413 




99 








100 








101 








102 


014226 


016002 


OOOOOOG 


103 


014232 


012701 


001205' 


104 


014236 


004737 


014330' 


105 


014242 


010201 




106 


014244 


010137 


OOOOOOG 


107 


014250 


004737 


014454' 


108 








109 








no 








111 


014254 


012701 


001223' 


112 


014260 


004737 


014330' 


113 


014264 


013701 


OOOOOOG 


114 


014270 


004737 


014376' 
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MOV OVRADD, RO 

1*: CMP 0. PAR<R0),R1 

BEQ 2$ 

ADD #6> RO 

CMP <R0),#4537 

BNE 1* 



>Find address of the overlay table 

; Check PARS with mapped overlay address 

> Br if values match 

/Find the next overlay region 

i Check for end of table, a <JSR R5, fOVRH> 

i Br to check next table entry 



Check for base of loaded handler region. 



MOV NUMDEV, RO 

11*: CMP HANPAR(RO), Rl 

BEQ 12* 

SUB #2, RO 

BGE 11* 

Print kernel PAR5 contents. 

!1*: MOV #TXPAR5, Rl 

CALL HLTPRT 

MOV TRPAR5, Rl 

CALL HLTOCT 

BR 3* 



» Get highest byte index for loaded devices 

i Check PAR5 with mapped handler address 

; Br if values match 

; Offset to next device handler 

/Br to check next handler entry 



"PARS VALUE = " 
PRINT HEADING 
GET ARGUMENT VALUE 
PRINT OCTAL VALUE 
Go halt the system 



PARS address located in mapped system region - report segment ID. 



2*: 



MOV 0. ADR(R0)/R4 

SUB OVRADD/ RO 

MOV RO/ R3 

CLR R2 

DIV #6, R2 

INC R2 

MOV #TXSEG, Rl 

CALL HLTPRT 

MOV R2. Rl 

CALL HLTOCT 

MOV #TX0ID/R1 

CALL HLTPRT 

MOV R4, Rl 

MOV Rl/DMPOVL 

CALL HLTRAD 

BR 3* 



Get the radSO overlay identifier 

Sub the base address of the overlay table 

Move to louj-order address 

Clear high-order address 

Divide by 6 (# bytes/ overlay table entry) 

Normalize base to one 

"Seg. value =" 

Print heading 

Get the segment number 

Print the octal segment number 

"Overlay: " 

Print heading 

Restore the overlay identifier 

Pass overlay name to TSDUMP 

Print the rad50 overlay identifier 

Go halt the system 



PARS address located in loaded device handler - report device name. 



12*: MOV PNAME<R0)/R2 

MOV #TXDEV/R1 

CALL HLTPRT 

MOV R2/R1 

MOV Rl/DMPHND 

CALL HLTRAD 



Get the RADSO device name 

"Device name ; " 

Print heading 

Get the device name 

Pass device name to TSDUMP 

Print the radSO device name 



Print stack pointer at time of crash 



3*: 



MOV 


#SPTXT/R1 


CALL 


HLTPRT 


MOV 


DIESP/Rl 


CALL 


HLTOCT 



/Point to message heading 
/Print the heading 
/Get SP at time of crash 
/ Print it 



TSEXC2 


— Hisc 


TSX-P] 


us Execu 


SYSDIE - 


— Fatal 


system 


halt 


115 








116 








117 








US 


014274 


105737 


OOOOOOG 


119 


014300 


001001 




120 


014302 


000000 




121 








122 








123 








124 


014304 


013701 


0000000 


125 


014310 


062701 


000002 ' 


126 


014314 


012702 


OOOOOOG 


127 


014320 


112122 




128 


014322 


001376 




129 


014324 


000137 


ooooooe 



See if uue should caii the system crash dump moduie or halt the system 



TSTB 

BNE 

HALT 



VSYDMP 
4* 



; Should tue do a system dump? 

; Br if yes 

; Halt the system 



Enter system overlay to produce a crash dump 
4*: MOV DIEMSG/Rl ; Get address of error message text 



>*: 



MOV 


DIEMSG, Rl 


ADD 


#DIEBAS, Rl 


MOV 


#DMPTXT, R2 


MOVE 


(Rl>+, <R2)+ 


BNE 


5« 


JMP 


DDDUMP 



j Point to area luhere we pass message 

j Store message text 

> Loop till all of message moved 

J Enter dump routine 



I 

€ 
f 

< 

t 
< 

i 
i 
< 
I 
I 
t 
I 



< 
r 
( 
I 
I 
C 
I 
C 
I 
( 

i 

i 

I 
( 



I 
I 

i 



TSEXC2 


— Misc 


. TSX-Pl 


us Execu 


SYSDIE - 

1 
2 
3 


— Fatal 


sy stem 


halt 








4 








5 








6 








7 


014330 


010146 




8 


014332 


112100 




9 


014334 


001406 




10 


014336 


120027 


000200 


11 


014342 


001413 




12 


014344 


004737 


014612' 


13 


014350 


000770 




14 








15 


014352 


012700 


000015 


16 


014356 


004737 


014612' 


17 


014362 


012700 


000012 


IS 


014366 


004737 


014612' 


19 








20 


014372 


012601 




21 


014374 


000207 




22 








23 








24 








25 








26 








27 








28 








29 








30 


014376 


010146 




31 


014400 


010246 




32 


014402 


012702 


000006 


33 


014406 


005000 




34 


014410 


073027 


000001 


35 


014414 


000403 




36 


014416 


005000 




37 


014420 


073027 


000003 


38 


014424 


062700 


000060 


39 


014430 


004737 


014612' 


40 


014434 


077210 




41 


014436 


012701 


001136' 


42 


014442 


004737 


014330' 


43 


014446 


012602 




44 


014450 


012601 




45 


014452 


000207 




46 








47 








48 








49 








50 








51 








52 








53 








54 


014454 


010146 




55 


014456 


010246 




56 


014460 


005000 




57 


014462 


071027 


003100 



Wednesday 18-Jan-S9 15:26 Page 51 



lii— if Hi i ^ ueajLACU wu pi'i.iiv aii rit^'WAA. sui^iiij uii i/iic uOiist-FJLt; verilfaficlJL. 

Inputs: 
Rl = Address of ASCIZ string to print. 



GET NEXT CHAR FROM TEXT STRING 

BR IF HIT END OF STRING 

END WITHOUT CR-LF? 

BR IF YES 

SEND CHAR TO TERMINAL 

GO GET NEXT CHAR 

; PRINT CR 

; PRINT LF 



HLTPRT: MOV 


Rl, -<SP) 


1*: MOVB 


(R1)+,R0 


BEQ 


2* 


CMPB 


RO, #200 


BEQ 


3* 


CALL 


HLTCHR 


BR 


1* 


i Print CR-Lf. 




2*: MOV 


#CR, RO 


CALL 


HLTCHR 


MOV 


#LF> RO 


CALL 


HLTCHR 


; Finished 




3*: MOV 


(SP)+,R1 


RETURN 





HLTOCT is called to convert a binary value to an octal character string 
and print that string on the console terminal. 



Inputs: 
Rl = Binary value to be converted and printed. 



HLTOCT: 


MOV 


R 1 , - < SP ) 




MOV 


R2, -<SP) 




MOV 


#6. . R2 




CLR 


RO 




ASHC 


#1, RO 




BR 


2* 


1*: 


CLR 


RO 




ASHC 


#3, RO 


2*: 


ADD 


#'0, RO 




CALL 


HLTCHR 




SOB 


R2, 1* 




MOV 


#TXNUL,R1 




CALL 


HLTPRT 




MOV 


(SP)+, R2 




MOV 


<SP)+,R1 




RETURN 





GET # OF OCTAL DIGITS IN RESULT STRING 

SET FOR SHIFT 

SHIFT 1ST BIT INTO RO 

ENTER CONVERSION LOOP 

SET FOR SHIFT 

SHIFT AN OCTAL DIGIT INTO RO 

CONVERT BINARY VALUE TO ASCII CHARACTER 

PRINT A CHARACTER 

LOOP TO PRINT REST OF VALUE 

NOW PRINT CR-LF 



HLTRAD is called to convert a RAD50 value to an ascii character string 
and print that string on the console terminal. 



Inputs: 
Rl = RAD50 value to be converted and printed. 



HLTRAD: MOV 
MOV 
CLR 
DIV 



R 1 , - < SP ) 
R2, -<SP) 
RO 
#50#50, RO 



i 
I 
f 






€ 
I 

( 
1 
< 
t 

I 



; Clear high order 
jDivide for Ist byte 



( 
I 
I 
i 



f 
i 

( 

i 
i 

f 
f 
f 

( 
I 
i 



TSEXC2 - 
SYSDIE — 



- Misc. TSX-Plus ExBcu MACRO 
Fatal system halt 



58 014466 
o9 ui4t/<=: 

60 014476 

61 014500 

62 014504 

63 014510 

64 014514 

65 014520 

66 014524 

67 014530 

68 014534 

69 014536 

70 014540 
71 

72 

73 

74 

75 014542 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 014612 

88 014620 

89 014622 

90 014626 



116000 
uu4/a/ 
005000 
071027 
1 1 6000 
004737 
116100 
004737 
012701 
004737 
012602 
012601 
000207 



040 



032737 
001774 
110037 
000207 



014542' 
014612' 

000050 

014542' 

014612' 

014542' 

014612' 

001136' 

014330' 



V05. 05 Wednesday 


18-Jan-89 


MOVB 


R50CHR(R0) 


CALL 


HLTCHR 


CLR 


RO 


DIV 


#50, RO 


MOVB 


R50CHR(R0) 


CALL 


HLTCHR 


MOVB 


R50CHR(R1) 


CALL 


HLTCHR 


MOV 


#TXNUL, Rl 


CALL 


HLTPRT 


MOV 


(SP)+, R2 


MOV 


(SP)+, Rl 


RETURN 
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RO 



RO 



RO 



Get output character 
Print a character 
Clear high order 
Divide for 2nd byte 
Get output character 
Print a character 
Get output character 
Print a character 
Now print cr-lf 



101 



[OZ 



. EVEN 



R50CHR: ASCII / ABCDEFGHIJKLMNOPQRSTUVWXYZ*. 0123456789/ 



. EVEN 



HLTCHR is called to print a single character on the console terminal 
during a system crash. 

Inputs: 
RO = Character to print. 



OOOOOOG OOOOOOG HLTCHR: BIT 

BEQ 

OOOOOOG MOVB 

RETURN 



#TRRDY, @#CTTSR 

HLTCHR 

RO. e#CTTBR 



IS TERMINAL READY FDR ANOTHER CHARACTER? 

BR IF NOT 

SEND CHARACTER TO CONSOLE TERMINAL 



i 
t 

I 
I 
I 

( 

i 
f 

i 
i 

i 

€ 

I 

( 
I 

4 

i 

i 



f 



1 
I 

I 
( 
{ 



TSEXC2 
EXCINI - 

1 
>-> 

a. 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

1 wl 

14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



— Misc. TSX-Plus Execu MACRO V05. 05 

- Final system initialization 



014630 



014630 
014634 
014640 
014642 
014646 
014652 
014654 
014656 



014662 
014666 
014670 
014674 
014676 
014702 
014706 
014710 
014712 
014720 



014726 
014732 
014734 
014740 
014744 
014746 
014752 
014756 
014760 
014762 



014766 
014772 
014774 
015000 



015002 
015006 
015012 



013701 
012702 
010103 
062703 
010361 
010301 
077207 
005063 



012702 
003417 
013701 
010103 
062703 
010361 
010301 
077207 
013763 
013737 



005737 
001415 
012702 
013701 
010103 
062703 
010361 
010301 
077207 
005061 



013701 
005021 
020137 
103774 



013701 
020137 
103002 



OOOOOOG 
1 777770 

OOOOOOG 
OOOOOOG 



OOOOOOG 



OOOOOOC 

OOOOOOG 

OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 



OOOOOOG 

177777G 
OOOOOOG 

OOOOOOG 
OOOOOOG 



OOOOOOG 

OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 
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SBTTL EXCINI — Final system initialization 



EXCINI is the last part of the system start-up initialization routine. 

It is placed in TSEXEC rather than TSINIT so that tables that are allocated 

over TSINIT can be clobbered during this part of the initialization. 



EXCINI: 

Set up I/O queue free chain 

MOV FREIOQ, Rl 

MOV #NUMI0Q-1,R2 

10$: MOV R1,R3 

ADD #I0QSIZ.R3 

MOV R3, Q. LINK<R1> 

MOV R3, Rl 

SOB R2, 10* 

CLR Q. LINK(R3) 



BASE OF I/O QUEUE AREA 

# I/Q QUEUE ELEMENTS - 1 

GET ADDRESS OF CURRENT QUEUE ELEMENT 

POINT TO NEXT QUEUE ELEMENT 

SET FORWARD LINK IN OUR ELEMENT 

POINT TO NEXT ONE 

GO DO IT 

ZERO LAST FORWARD POINTER 



Set up fork blocks that are allocated in init area 



30*: 



OOOOOOG 
OOOOOOG 



MOV 
BLE 
MOV 
MOV 
ADD 
MOV 
MOV 
SOB 
MOV 
MOV 



#«NUMFRK 

31* 

FRKINI, Rl 

Rl> R3 

#FQ**SZ, R3 

R3, FQ*LNK(R1> 

R3. Rl 

R2, 30* 

FREFRK, FQ*LNK<R3) 



FRKGEN>-l>i R2 ; Get # fork blocks 
Br if none to allocate 
Point to start of fork area 
Get address of current block 
Point to next block 
Set forward link in our element 
Get address of next block 
Allocate all but last block 
; Add static fork blocks to end 



to allocate 



of list 



FRKINI, FREFRK 



/Put new fork blocks at head of list 



Set up cache control block free chain 



31*: TST CSHALC 

BEQ 20* 

MOV #NUMCCB-1,R2 

MOV CCBHD, Rl 

21*: MOV R1,R3 

ADD #CC**SZ, R3 

MOV R3, CC*LNK<R1) 

MOV R3, Rl 

SOB R2, 21* 

CLR CC*LNK<R1) 

Initialize device mount table 



Is data caching wanted? 

Br if not 

Get # cache control blocks - 1 

Base of control block area 

Get address of current control block 

Get address of next control block 

Make current block point to next one 

Get address of next block 

Loop if more to link together 

Zero last link 



20*: 
40*: 



MOV 
CLR 
CMP 
BLO 



CSHDEV/Rl 
(Rl) + 
R 1 > CSHDVN 
40* 



/Point to start of area 
J Zero the entire table 
/Reached end? 
/Loop if not 



36*: 



Initial i z£ 

MOV 

CMP 
BHIS 



;hared PLAS region control blocks 



SHRRCB/ Rl 
R 1 / SHRRCN 
35* 



/Point to 1st region 
/Have we initialized 
/Br if yes 



control block 
entire area7 



i 

I 
I 



I 
ff 
t 
i 

< 

I 
c 



TSEXC2 


— Misc 


. TSX-Pl 


us Execu 


EXCINI - 


— Final 


system 


initial i 


58 


015014 


005021 




59 


015016 


000773 




60 








61 








62 








63 


015020 


013701 


OOOOOOG 


64 


015024 


001413 




65 


015026 


012702 


177777G 


66 


015032 


010103 




67 


015034 


062703 


OOOOOOG 


68 


015040 


010361 


OOOOOOG 


69 


015044 


010301 




70 


015046 


077207 




71 
72 
73 


015050 


005061 


OOOOOOG 








74 








75 


015054 


013701 


OOOOOOG 


76 


015060 


013702 


OOOOOOG 


77 


015064 


001413 




78 


015066 


005302 




79 


015070 


001407 




80 


015072 


010103 




81 


015074 


062703 


OOOOOOG 


82 


015100 


010361 


OOOOOOG 


83 


015104 


010301 




84 


015106 


077207 




85 


015110 


005061 


OOOOOOG 


86 








87 








88 








89 


015114 


013700 


OOOOOOG 


90 


015120 


001412 




91 


015122 


013702 


OOOOOOG 


92 


015126 


013703 


OOOOOOG 


93 


015132 


005004 




94 


015134 


010422 




95 


015136 


005023 




96 


015140 


063704 


OOOOOOG 


97 


015144 


077005 




98 








99 








100 








101 








102 


015146 


012701 


OOOOOOG 


103 


015152 


001470 




104 


015154 


016103 


OOOOOOG 


105 


015160 


012700 


000020 


106 


015164 


105023 




107 


015166 


077002 




108 


015170 


162701 


000002 


109 


015174 


003367 




110 


015176 


012701 


OOOOOOG 


111 


015202 


032761 


OOOOOOG 


112 


015210 


001410 




113 


015212 


016102 


OOOOOOG 


114 


015216 


001405 
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CLR 
BR 



(Rl) + 
36* 



Zero the area 



Initialize free list of swap command packets 



35«: 



38*: 



MOV 
BEQ 
MOV 
MOV 
ADD 
MOV 
MOV 
506 
CLR 



SCPFHD, Rl 


37* 


#NSCP-1,R2 


R1,R3 


#SP**SZ> R3 


R3, SP*LNK<R1) 


R3, Rl 


R2, 38* 


SP*LNK(R1) 



Point to area where packets are 

Br if nothing to initialize 

Get # packets -1 

Get pointer to current packet 

Get pointer to next packet 

Make our packet point to next 

Get pointer to next packet 

Loop till all packets but last linked in 

Say last packet is end of list 



Initialize the free chain of monitor control blocks 



37* 



29*: 



42* 



28* 



32* 





MOV 


MONFQH, R 1 




MOV 


VMXMON, R2 




BEQ 


28* 




DEC 


R2 




BEQ 


42* 




MOV 


R1,R3 




ADD 


#JM**SZ. R3 




MOV 


R3. JM*LNK(R1) 




MOV 


R3, Rl 




SOB 


R2, 29* 




CLR 


JM*LNK<R1) 


Ini 


tiali ze 


the tables that 




MOV 


VSWPSL, RO 




BEQ 


33* 




MOV 


SWPPOS, R2 




MOV 


SWPJOB, R3 




CLR 


R4 


t 


MOV 


R4, <R2)+ 




CLR 


<R3) + 




ADD 


SLTSIZ,R4 




SOB 


RO, 32* 



Get base of area for control blocks 

Get # monitor blocks 

Br if none wanted 

Get one less than # wanted 

Br if only one wanted 

Get address of current block 

Get address of next control block 

Make current block point to next 

Get address of next block 

Br if more to allocate 

Zero last link 



keep track of free space in job swap file 



Get # slots in swap file 

Br if no swap file 

Point to table that has starting blk #'5 

Point to table that has job #'s 

1st slot is at block 

Set block # for this slot 

Say no job using this slot now 

Add # blocks used by a slot 

Loop till all slots initialized 



Initialize vector for each multiplexor that is used to map 
the Mux line number to the TSX-Plus logical line number 



from 



33*: 


MOV 


#LSTMX,R1 ; 




BEQ 


27* i 


15*: 


MOV 


MXLNT<R1),R3 i 




MOV 


#16. ,R0 i 


17*: 


CLRB 


<R3) + 




SOB 


RO, 17* 




SUB 


#2, Rl i 




BGT 


15* i 


16*: 


MOV 


#LSTHL, Rl ; 


19*: 


BIT 


#*HARD, LSW3<R1) i 




BEQ 


18* ; 




MOV 


LMXNUM<R1),R2 ; 




BEQ 


18* i 



Get index # of last mux 
Branch if no mux's to initialize 
GET ADDRESS OF MUX MAPPING TABLE 
ZERO 16 BYTES IN TABLE 



More mux tables to init? 

Loop if yes 

GET INDEX # OF LAST PHYSICAL LINE 

Is this line connected to hardware? 

Br if not 

IS THIS LINE CONNECTED TO A MUX? 

BR IF NOT 



i 
ff 

€ 
C 
I 
i 
« 
f 
I 
t 



i 
< 

i 
i 

{ 
( 



t 
I 



TSEXC2 


— Misc 


. TSX-Pl 


us Execu MACRO V 


EXCINI - 


— Final 


system 


initial ization 


115 


015220 


016202 


OOOOOOG 


116 


015224 


066102 


ooooooe 


117 


015230 


110112 




lis 


015232 


162701 


000002 


119 


015236 


003361 




120 








121 








122 








123 


015240 


105737 


OOOOOOG 


124 


015244 


001033 




125 


015246 


012701 


OOOOOOG 


126 


015252 


005761 


OOOOOOG 


127 


015256 


001423 




128 


015260 


016100 


OOOOOOG 


129 


015264 


020027 


OOOOOOG 


130 


015270 


001004 




131 


015272 


012771 


OOOOOOG OOOOOOG 


132 


015300 


000412 




133 


015302 


020027 


OOOOOOG 


134 


015306 


001004 




135 


015310 


052771 


OOOOOOG OOOOOOG 


136 


015316 


000403 




137 


015320 


052771 


OOOOOOC OOOOOOG 


138 


015326 


162701 


000002 


139 


015332 


003347 




140 








141 








142 








143 


015334 


013703 


OOOOOOG 


144 


015340 


012704 


177777G 


145 


015344 


010302 




146 


015346 


062702 


OOOOOOG 


147 


015352 


010263 


OOOOOOG 


148 


015356 


010203 




149 


015360 


077407 




150 


015362 


005063 


OOOOOOG 


151 








152 








153 








154 


015366 


004737 


016034' 


155 








156 








157 








158 


015372 


012704 


OOOOOOC 


159 


015376 


002407 




160 


015400 


016400 


OOOOOOG 


161 


015404 


001401 




162 


015406 


105010 




163 


015410 


162704 


000002 


164 


015414 


002371 




165 








166 








167 








168 


015416 






169 








170 








171 









Wednesday 18-Jan-S9 15:26 Page 52-2 



IS*: 



MOV 


MXLNT<R2),R2 


ADD 


LMXLN<R1),R2 


MOVE 


Rl/ (R2) 


SUB 


#2. Rl 


BGT 


19* 



GET ADDRESS OF MAP VECTOR FOR THIS MUX 

ADD OFFSET WITHIN VECTOR 

SET TSX LINE # WITHIN MAP VECTOR 

GET INDEX # OF NEXT LINE 

LOOP IF MORE LINES 



Enable interrupts for multiplexors 



23*: 



24*: 



26*: 
25*: 



TSTB 

BNE 

MOV 

TST 

BEQ 

MOV 

CMP 

BNE 

MOV 

BR 

CMP 

BNE 

BIS 

BR 

BIS 

SUB 

BGT 



PROFLG 

27* 

#LSTMX,R1 

MXCSR<R1) 

25* 

MXTyPE<Rl).RO 

RO, #CDX*DZ 

24* 



i Are ue running on a Pro? 

; Br if yes — Don't have any mux's on pro 

; Get index # of last mux 

i Is this mux installed? 

i Br if not 

j Get mux type code 

i Is this a DZll? 

» Br if not 

#INTMXli @MXCSR<R1); Enable DZll interrupts 
25* 

RO,#CDX*VH i Is this a DHVll? 
26* i Br if not 

#<VF*TIE!VF*RIE>, @VH*CSR(R1); Enable DHVll interrupts 
25* 

#<HF*TIE!HF*RIE>, eMH*SCR(Rl)i Enable DHll interrupts 
#2/Rl i More mux's to initialize? 

23* ; Loop if yes 



Initialize system message buffer free list. 



27*: MOV SNMSHD, R3 

MOV #<NMSNMB-1>, R4 

7*: MOV R3, R2 

ADD #SB**SZ, R2 

MOV R2, SB*LNK<R3) 

MOV R2, R3 

SOB R4, 7* 

CLR SB*LNK(R3) 



GET ADDRESS OF 1ST MESSAGE BUFFER 

GET # MESSAGE BUFFERS -1 

GET ADDRESS OF MESSAGE BUFFER 

POINT TO FOLLOWING BUFFER 

CHAIN TOGETHER THE ENTRIES 

MOVE ON TO NEXT ENTRY 

DO ALL BUT LAST 

SET FORWARD LINK FOR LAST ENTRY TO ZERO 



Initialize INSTALLed program table 

CALL INSINI i Initialize installed program table 

Initialize CL table information 



41*: 



45*: 



MOV 


#2»<CLT0TL"1>»R4 


BLT 


39* 


MOV 


CL*EPS(R4),R0 


BEQ 


45* 


CLRB 


<R0) 


SUB 


#2, R4 


BGE 


41* 



Get index to last CL unit 

Br if there are no CL units 

Get pointer to EOF string buffer 

Br if no string buffer 

Say no EOF string 

Get next index 

Loop if more CL units 



Initialize the file management tables 
39*: OCALL USRINI ;Call TSUSR initialization routine 

Initialize spool buffer list 



i 
I 

r 
I 



i 
I 
( 
< 
1 
i 

i 

I 
i 

I 
4 
I 
f 
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172 


015424 


173 


015430 


174 


015432 


175 




176 




177 




178 


015440 


179 


015444 


ISO 


015446 


181 




182 




183 




184 


015452 


185 


015456 


186 


015460 


187 




188 




189 




190 


015466 


191 


015472 


192 


015474 


193 




194 




195 




196 


015500 


197 


015504 


198 


015506 


199 




200 




201 




202 


015514 


203 


015520 


204 


015522 


205 




206 




207 




208 


015530 


209 


015536 


210 


015542 


211 


015544 


212 


015552 


213 


015560 


214 




215 




216 




217 


015564 


218 




219 




220 




221 


015570 


222 


015574 


223 


015602 


224 


015604 


225 


015612 


226 


015614 


227 


015622 


228 


015624 
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105737 OOOOOOG 
001403 



TSTB NSPLDV 
BEQ 11$ 
DCALL SPLINI 



> Are there any spooled devices? 

J Br if not 

J Initialize the spooling system 



Initialize the record locking system 



005737 OOOOOOG 

001402 

004777 OOOOOOG 



005737 OOOOOOG 
001403 



11*: 



TST 


VMXSF 


BEQ 


12* 


CALL 


SLDKINI 



i Is record locking support wanted? 

i Br if not 

i Initialize the shared file system 



Initialize the message communication system 



T3T VMAXMC 
BEQ 13* 
OCALL MSGINI 



i 1b message uummunic^tion support wanted? 

; Br if not 

; Initialize the message system 



Initialize the data caching facility 



005737 OOOOOOG 

001402 

004777 OOOOOOG 



005737 OOOOOOG 
001403 



TST 


CSHALC 


BEQ 


43* 


CALL 


eCSHINI 



13*; 



Initialize the PLAS system 

43*: TST VPLAS 
BEQ 44* 
OCALL PLSINI 



j Is data caching wanted?" 

; Br if not 

i Initialize data caching facility 



; Is PLAS support included in system? 

; Br if not 

; Do PLAS initialization 



Initialize the dislay window management system 



005737 OOOOOOG 
001403 



44*: TST VMXWIN 
BEQ 34* 
OCALL WININI 



i Is window support wanted? 

; Br if not 

{Initialize window system 



Connect clock interrupt to clock interrupt routine 



012737 OOOOOOG 000100 34* 

105737 OOOOOOG 

001410 

012737 OOOOOOG 000230 

012737 000340 000232 

005737 OOOOOOG 



MOV 


#CLKINT, e#100 


TSTB 


PROFLG 


BEQ 


22* 


MOV 


#CLKINT, e#230 


MOV 


#340, @#232 


TST 


e#PCCCR2 



i Set up clock interrupt vector 

; Is this a PRO? 

; Br if not 

i 380 clock interrupt vector 



004737 015714' 



/Access CSR2 to start clock interrupts 

i 

} Initialize time-sharing line parameters and speeds 

22*: CALL INISPD i Initialize time-sharing line speeds 

Start lines that specified *START when genned. 



012701 000002 MOV 

032761 OOOOOOG OOOOOOG 2*: BIT 

001413 BEQ 

032761 OOOOOOG OOOOOOG BIT 

001007 BNE 

032761 OOOOOOG OOOOOOG BIT 

001003 BNE 

005000 CLR 



#2, Rl ; INDEX # OF 1ST LINE 

#*START, ILSW2(Rl)iD0ES THIS LINE WANT AUTO STARTUP? 

3* ;BR IF NOT 

#*DEAD, LSW3<R1 > ; IS THIS LINE INSTALLED? 

3* ; BR IF NOT 

#*PHONE, ILSW2<R1>; IS THIS A DIAL-UP LINE? 

3* i BR IF IT IS < NO AUTO STARTUP THEN) 

RO ; No secondary start-up command file 
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f 

4 
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015626 
015632 
015636 
015642 



015644 
015650 
015654 
015656 
015662 
015664 
015666 
015670 
015672 
015676 
015702 
015704 



004737 
062701 
020127 
101754 



012701 
020127 
101013 
016102 
001405 
105712 
001403 
005000 
004737 
062701 
000762 



001606' 

000002 

OOOOOOG 



3$: 



CALL 


INITLN 


ADD 


#2, Rl 


CMP 


R1,#LSTPL 


BLOS 


2* 



Start any detached jobs 



OOOOOOG 
OOOOOOG 

OOOOOOG 



6*: 



001606' 

000002 



5*: 
4*: 



MOV 


#FSTDL, R 1 


CMP 


R1,#LSTDL 


BHI 


4* 


MOV 


LSUCF(Rl), R2 


BEQ 


5* 


TSTB 


<R2> 


BEQ 


5* 


CLR 


RO 


CALL 


INITLN 


ADD 


#2, Rl 


BR 


6* 



INITIATE THE LINE 
ADVANCE JOB # 
MORE TO CHECK? 
BR IF YES 



# OF FIRST DETACHED JOB 

DONE ALL DETACHED JOBS? 

BR IF YES 

DOES THIS JOB HAVE A START-UP COMMAND FILE? 

BR IF NOT 

IS COMMAND FILE NAME NULL? 

BR IF YES 

No secondary start-up command file 

INITIATE THE LINE 

CHECK NEXT LINE 



015704 105037 OOOOOOG 



015710 000137 OOOOOOG 



Finished system initialization 

CLRB INITFL -SAY SYSTEM INITIALIZATION IS FINISHED 

Enter job scheduler to wait for first job to run 

JMP EXEC i ENTER JOB SCHEDULER 



f 

I 

i 
t 

i 
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c 

€ 

€ 

f 
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INISPD 
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i 
c 
f 

i 
< 

i 

i 
I 
i 

i 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 



23 
24 
25 
26 
27 
2S 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 



. SBTTL INISPD — Initialize time-sharing line speeds 

INISPD is called to initialize the transmit/receive speeds for 
time-sharing lines. 



015714 010146 
015716 010246 



015720 012701 OOOOOOG 



INISPD: MOV 
MOV 



R 1 , - < SP ) 
R2, -(SP) 



Begin loop to set each line 

MOV #LSTHL. Rl ; Get index to last hardware line 
Skip this line if it is dead or not connected to harduiare 



015724 032761 

015732 001432 

015734 032761 

015742 001026 



OOOOOOG OOOOOOG 1*: 
OOOOOOG OOOOOOG 



BIT #*HARD, LSW3<R1) 

BEQ 2* 

BIT #*DEAD, LSW3<R1) 

BNE 2* 



Is this line connected to hardware? 

Br if not 

Is this line installed? 

Br if not 



015744 116100 OOOOOIG 



015750 032761 OOOOOOG OOOOOOG 

015756 001402 

015760 012700 OOOOOOG 

015764 016102 OOOOOOG 

015770 004772 OOOOOOG 



015774 020127 OOOOOOG 

016000 101007 

016002 032761 OOOOOOG OOOOOOG 

016010 001403 

016012 052761 OOOOOOG OOOOOOG 



016020 162701 000002 
016024 003337 



016026 012602 
016030 012601 
016032 000207 



Set the speed of this line 

MOVB LMXPRM+1 <R1), RO j Get speed parameters 
Initialize speed to 9600 baud if autobaud was specified for line 



3*: 



BIT #«AUTO, I LSW2 ( R 1 ) 

BEQ 3$ 

MOV #S9600, RO 

MOV LCDTYP(R1)>R2 

CALL eCDSSPD<R2) 



Is autobaud wanted for this line? 

Br if not 

Set speed to 9600 

Get device type code for this line 

Call hardware-dependent routine to set speed 



Convert *TDEAD lines <deaded with TSXMOD) to «DEAD lines 



CMP 
BHI 
BIT 
BEQ 
BIS 



R1>#LSTPL /Is this a time-sharing line? 

2$ /Skip if not (skip sub/ det S< io lines) 

#*TDEAD/ LSWll (Rl ) i Do we want this line to be dead? 
2* /Br if not 



#*DEAD/LSW3(R1) 
See if there are more lines 



2*: 



SUB 
BGT 

Finished 



MOV 
MOV 
RETURN 



#2/ Rl 
1* 



(SP)+/R2 
(SP)+, Rl 



Flag line as dea< 



Are there more lines to do? 
Br if yes 
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016034 
016036 



1 

c 

3 
4 
5 
6 
7 
8 
9 

10 016040 

11 016044 

12 016046 

13 016052 
14 

15 

16 

17 016054 

IS 016060 

19 

20 

21 

22 016064 

23 016072 

24 016076 

25 01610ii 
26 

27 

28 

29 016110 

30 

31 

32 

33 016114 

34 016122 

35 016126 

36 016130 

37 016132 

38 016134 

39 016136 

40 016142 

41 016144 

42 016146 

43 016150 

44 016152 

45 016154 
46 

47 
48 

49 016156 

50 016162 

51 016166 
52 

53 
54 

55 016170 

56 016172 

57 016174 



010246 
010346 



013702 
005022 
020237 
103774 



012703 



013762 
012362 
012362 
013/62 



052762 
012704 
012300 
001412 
002003 
005400 
012704 
005300 
006300 
060004 
060204 
012314 
000762 



062702 
020327 
103736 



012603 
012602 
000207 



. SBTTL INSINI — Initialize installed program table 
Initialize the installed program table. 



INSINI: MOV 
MOV 



R2, -(SP) 
R3, -(SP) 



Initially, zero the entire table 



OOOOOOG 
OOOOOOG 



1*: 



MOV 
CLR 
CMP 
BLD 



INSTBL, R2 

<R2) + 

R2, INSTBN 

1* 



; Point to start of table 
i Zero the tab ie 
; Reached end of table? 
i L.oop XT not 



Now install certain system programs 



OOOOOOG 
001412' 



OOOOOOG OOOOOOG 

000002G 

000004G 

001350' 000006G 



MOV INSTBL, R2 
MOV #SRFPRG, R3 

Set file spec for program 



i Point to Ist table entry 

J Point to table with info about sys programs 



012362 OOOOOOG 



2*; MOV SYNAME, II*NAM<R2)i Set SY as device name 

MOV <R3)+, II*NAM+2(R2) ; Set 1st 3 chars of program name 

MOV (R3)+, II*NAM+4<R2) ; Set 2nd 3 chars of program name 

MOV R50SAV, II*NAM+6(R2)i Set SAV as fi.le extension 

Set run attribute flags 

MOV <R3)-+-, II*FLG<R2)i Set run attribute flags 

Set privileges for program 



OOOOOOG OOOOOOG 
OOOOOOG 



3*: 



OOOOOOG 



5*: 



BIS 
MOV 
MOV 
BEQ 
BGE 
NEG 
MOV 
DEC 
ASL 
ADD 
ADD 
MOV 
BR 



#PO«DBG, II*NPV<R2) i Set NODEBUG privilege flag 



#II*PRV, R4 

<R3>+, RO 

4* 

5* 

RO 

#II*NPV, R4 

RO 

RO 

RO, R4 

R2, R4 

(R3)+, (R4) 

3* 



Assume u»e will set some privileges 

Are there any privilege flags? 

Br if not 

Br if we are to set privileges 

Get positive offset 

Point to reset-privilege vector 

Convert to offset 

Convert to word offset 

Point to word in vector to change 

Add address of install table entry 

Set bits in install table entry 

Go see if more privileges for program 



See if there are more programs to install 



OOOOOOG 
001606' 



4*: 



ADD 

CMP 
BLO 

Finished 



MOV 
MOV 
RETURN 



#II**SZ,R2 
R3, #SRFEND 
2* 



<SP)+, R3 
<SP)+, R2 



iPoint to next install table entry 
; Installed all system programs^' 
i Loop if not 
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INSINI — Initialize installed program table 

58 

59 000001 . END 

Errors detected; 

*»* Assembler statistics 



Work file reads: 

Work file writes: 

Size of work file: 9760 Words < 39 Pages) 

Size of core pool: 18176 Words ( 71 Pages) 

Operating system: RT-ll 

Elapsed time: 00:01:31.51 

, LP: TSEXC2=DK: TSEXC2/C/N: SYM 
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flSTLG 


1-51 


10-169 










*AUTO 


1-47 


10-105 


28-14 


53-26 






*CARMN 


1-57 


5-97 


5-103 


30-48 






*CARUP 


1-51 


5-101 


10-171 


30-43 


30-67 




*CFABT 


1-59 












«CTRLC 


1-70 


8-29 


8-30 








*CTRLO 


1-47 


6-111 










*CTRLS 


1-66 


6-111 


10-30 


48-34 






*DBGBK 


1-104 


8-18 


12-28 








*DBGMD 


1-54 


8-17 










*DEAD 


1-58 


10-171 


29-15 


52-224 


53-17 


53-38 


fDEBUG 


1-89 


13-57 










«DEFER 


1-83 


6-125 










*DETCH 


1-36 


6-104 


10-10 








*DHBF1 


1-86 


10-34 










*DHBF2 


1-86 


10-34 










*DHCDa 


1-36 


49-14 










*DILUP 


1-36 


5-81 


10-28 


10-65 


30-44 


30-51 


*DISCN 


1-42 


7-29 


7-33 


10-50 


10-126 


30-53 


*DODFR 


1-83 


6-127 










«DOOFF 


1-60 


7-31 


30-53 








*FPUEX 


1-81 


14-11 










*GCECO 


1-83 


6-127 










*GEMAR 


1-30 


B-13 










«HARD 


1-74 


10-171 


29-17 


52-111 


53-15 




*IITIM 


1-78 


47-20 


47-27 


48-22 


48-26 




*INCOR 


1-99 


5-71 


18-27 








*INIT 


1-61 


6-9 










*INKMN 


1-60 


6-15 


7-14 


7-41 


12-14 


13-23 


*IOMAP 


1-71 


8-17 










*LOFCF 


1-62 


10-124 


30-55 








*MAPOK 


1-79 


7-42 










*MLOCK 


1-71 


8-17 










*NABRS 


1-47 


10-108 


28-27 


28-29 






*NOABT 


1-80 


s-is 










*NOIN 


1-68 


5-82 


7-32 


30-50 






*NOLF 


1-54 


8-17 










*NDUCR 


1-49 


7-11 


7-25 








*OITIM 


1-94 


47-31 


47-37 


48-30 


48-38 




«PHONE 


1-58 


5-98 


29-29 


52-226 






*PWKEY 


1-31 


5-84 










*RDSAV 


1-30 


8-13 










*RNMLK 


1-54 


8-18 










mSGQO 


1-90 


17-30 










*SGQ1 


1-101 


17-56 










*SGQ1A 


1-101 


17-81 










*SGQ1B 


1-101 


17-100 










*SGQ1C 


1-101 


17-91 










«SGQ2 


1-101 


17-115 










*SGQ3 


1-90 


17-37 










*SOTFN 


1-83 


27-16 


27-18 








*START 


1-58 


52-222 










*SUCF 


1-55 


5-83 










*TDEAD 


1-58 


53-36 










*UDSPC 


1-111 


8-130 










*VIRJB 


1-76 


7-43 











26-36 
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' Cross reference table <CREF V05. 05) 

* *VNOTT 1-66 10-16 

*XCHAR 1-79 10-36 10-171 47-33 47-35 48-32 48-36 

... VI 7-58 7-72 7-72 

* . . . V2 7-58 7-5S# 7-72 7-72 7-72# 7-72# 
ABORT 1-22 11-52 13-71# 14-20 14-28 

ABRTAD 1-60 13-71« 

' ABRTCD 1-60 13-72* 



c 
f 
c 
f 

€ 



AF$BYA 1-41 4-49 4-75 

AF*DUP 1-32 4-29 

AF*HIE 1-41 4-37 4-41 4-45 

AF*IND 1-32 4-33 

AF*IOP 1-41 4-58 

AF*MEM 1-41 4-83 i 

AF*NOI 1-41 4-71 

AF*NOW 1-41 4-33 4-37 4-41 4-45 4-67 4-71 4-83 

AF*NPW 1-31 4-71 i 

AF*PLK 1-40 4-49 

AF*SCA 1-41 4-37 4-41 4-45 4-54 4-67 4-71 4-83 

AF*SET 1-32 4-58 I 

AF*UCL 1-32 4-79 

BELL 1-1 1S# 3-27 

C. NUMQ 1-30 6-68* 

CANCPL 8-104 9-10# 

CANIOT 1-52 8-44 

CANMKT 1-72 8-70 

CARDET 1-77 31-26 

CC**SZ 1-102 52-40 

CC*LNK 1-102 52-41* 52-44* 



CCBHD 1-62 52-3B 

CDCLOK 1-56 29-23 

CDGDSS 1-103 30-15 

CD I FLO 1-108 15-58 15-60* 

CDIRTN 1-108 15-63 

CDOFLG 1-108 15-67 15~69* 

CDORTN 1-108 15-72 

CDSDSS 1-103 30-30 30-61 30-81 

CDSSPD 1-36 53-30 

CDX*DZ 1-48 52-129 

CDX*VH 1-104 52-133 

CFACFL 1-59 

CFPSAV 1-30 

CHKABT 1-53 11-66 13-29 

CHKPRT 18-116 20-7# 

CHKUSP 1-59 11-50 13-20 14-25 

CINFLG 1-33 8-31* 8-42 

CKMRKT 1 5-23 24-6# 

CKSCHD 1 5-34 27-9# 

CKTWAT 1 5-27 22-6# 

CL«EPS 1-38 52-160 

CLENUP 7-24 8-9# 

CLKOIS 15-85 18-6# 

CLKABD 18-107 28-6# 

CLKCNT 1-84 15-8* 15-18 15-78 15-90 16-19 22-13 24-20 26-71 

CLKDAT 15-12 16-13# 

CLKINT 1-57 52-208 52-211 

CLKIDH 18-103 19-9# 
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CLKJOB 


17-6# 


18-99 
















CLKPC 


1-98 


26-29 


26-45 














CLKPHN 


29-33 


30-10# 
















CLKPM 


15-40 


26-18# 
















CLKPS 


1-9S 


26-27 


26-42 














CLKRUN 


1-23 


1-84 


15-6# 


15-91 












CLKSCR 


24-63 


25-7# 
















CLSCDB 


1-73 


8-111 
















CLTOTL 


1-42 


18-117 


52-158 














CONFIG 


1-54 


14-39 
















CORUSR 


1-52 


7-6 


10-186* 


11-19 


13-22 


13-56 


15-16 


17-11 


18-67 


CP*STD 


1-99 


25-20 
















CQ*CP 


1-73 


25-20* 
















CQI*HOT 


1-97 


24-21* 
















CQ*JOB 


1-84 


25-21 
















CQ*LNK 


1-72 


1-82 


1-97 


24-13 


24-15 


24-32 


24-32* 


24-37* 


24-49 


CQ*LOT 


1-97 


24-20* 


24-24 














CQ*PRI 


1-94 


25-32* 
















CQ*RNS 


1-97 


19-40 


19-42 


25-31* 












CR 


1-116# 


3-27 


51-15 














CSHALC 


1-62 


52-35 


52-190 














CSHDEV 


1-35 


52-48 
















CSHDVN 


1-35 


52-50 
















CSHFIN 


i-47 


9-50 
















CSHINI 


1-97 


52-192 
















CSIARE 


1-70 


7-72 
















CTTBR 


1-54 


51-89* 
















CTTSR 


1-54 


51-87 
















CURCP 


1-98 


9-14* 
















CURRDB 


1-64 


8-128* 
















CURVC 


1-81 


11-21 


11-44 














CW*FPU 


1-53 


14-39 
















CXBOWN 


1-43 


8-60 
















CXTBAS 


1-102 


6-39 
















CXTPAG 


1-75 


5-57 
















CXTRMN 


1-64 


6-57 


6-66 


6-73 


7-59 










CXTWDS 


1-102 


6-40 


6-45 














D*RUN 


1-105 


13-17 
















D. FLAG 


1-105 


8-25* 


13-17 














DATIMH 


1-85 


16-24 
















DAT I ML 


1-85 


16-26 


16-31 














DBGTRP 


1-91 


13-60 
















DEG 


1-51 


10-165 
















DFJMEM 


1-67 


5-55 


6-132 














DHCLOK 


1-26 


49-10# 
















DHGDSS 


1-24 


39-1 1# 
















DHLBIT 


3-39# 


42-17 
















DHSBRK 


1-26 


42-9# 
















DHSDSS 


1-24 


40-9# 
















DHSPCT 


3-59# 


41-22 
















DHSSPD 


1-26 


41-10# 
















DIEARG 


1-33 


7-8* 


11-34* 


11-46* 


50-47 










DIEBAS 


3-5# 


3-6 


3-7 


3-8 


3-9 


3-10 


3-11 


3-12 


3-13 




3-17 


3-18 


3-19 


3-20 


3-21 


3-22 


3-23 


50-40 


50-125 


DIEMSG 


1-33 


7-8* 


7-74* 


U-35* 


11-46* 


18-137* 


50-39 


50-124 




DIEPC 


1-33 


50-34 

















26-38 



24-51 24-53* 25-15 



4 



3-14 3-15 3-16 



TSEXC2 — Misc. TSX-Plus Execu MACRO V05. 05 Wednesday ie~Jan-89 15:26 Page S-4 



Cross reference table (CREF V05. 05) 



DIESP 


1-33 


50-113 




DLCLOK 


1-25 


47-9# 




DLGDSS 


1-24 


31-11# 




DLSBRK 


1-23 


33-9# 




DLSDSS 


1-24 


32-9# 




DLSSPD 


1-25 


34-9# 




DLSTRT 


1-73 


47-36 




DM«CSR 


1-106 


39-23« 


39-24* 40-17* 


DM*LSR 


1-106 


39-25 


40-24* 40-26* 


DMPHND 


1-34 


50-25-s 


50-106* 


DMPOVL 


1-34 


50-24*- 


50-96* 


DMPTXT 


1-34 


50-126 




DODUMP 


1-33 


50-129 




DOSCHD 


1-81 


18-35* 




DOTRMP 


1-30 


8-129# 




DTLX 


1-89 


18-46 


18-48* 


DZ*7BT 


1-44 


38-21 




DZ*8BT 


1-44 


38-19 




DZ*LEN 


1-44 






DZ*ODD 


1-44 


38-27 




DZ*PAR 


1-44 


33-24 




DZCLOK 


1-25 


48-9# 




DZGDSS 


1-24 


35-il# 




DZSBRK 


1-23 


37-10# 




DZSDSS 


1-24 


36-9# 




DZSSPD 


1-23 


38-9# 




DZSTRT 


1-73 


48-37 




EM*DTL 


1-99 


3-6 


3-6# 18-137 


EM*FRK 


3-7 


3-7# 




EM*JMO 


3-8 


3-8# 




EM*KRE 


3-9 


3-9# 


7-74 


EM*KTP 


3-10 


3-10# 


11-35 


EM*LMF 


3-U 


3-1 1# 




EM«MIO 


3-12 


3-12# 




EM*MPR 


3-13 


3-13# 




EM*NQE 


3-14 


3-14# 




EM*NSP 


3-15 


3-15# 




EM*PFT 


3-16 


3-16# 




EM*RIT 


3-17 


3-17# 


11-46 


EM«SFO 


3-18 


3-18# 




EM*SIE 


3-19 


3-19# 




EM*SJN 


3-21 


3-21# 


7-8 


EM*SOF 


3-23 


3-23# 




EM*SSE 


3-20 


3-20# 




EM*UEI 


5-22 


3-22# 




EMTBLK 


1-32 


10-94 




EMTCAD 


1-67 


6-52it 


8-24* 


EMTCAS 


1-93 


6-52 


8-24 


EMTLEV 


1-68 


6-51* 


7-12* 


EMTRAD 


1-67 


8-22* 




ENQTL 


1-96 


17-43 


17-105 19-43 


ERRLOC 


1-68 


7-40 


7-51* 


EXCINI 


1-21 


52-7# 




EXEC 


1-52 


10-189 


52-254 


FORCEX 


1-42 


10-127 


19-30 


FORK IT 


3-50# 


24-12* 


24-44* 24-59 



40-18* 
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FORKQ 


1-107 


15-64 


15-73 


15-86 


24-64 














FP*CDI 


1-108 


15-62 




















FP*CDO 


1-108 


15-71 




















FP*CK1 


1-107 


15-84 




















FP*IOF 


1-48 


24-62 




















FPTRPX 


1-21 


14-10# 




















FPUUSE 


1-79 


8-124* 




















FQ**SZ 


1-50 


52-26 




















FQ*LNK 


1-50 


52-27* 


52-30* 


















FQ*PRI 


1-107 


1 5-62* 


15-71* 


1 5-84* 


24-62* 














FQ*RTN 


1-107 


1 5-63* 


15-72* 


15-85* 


24-63* 














FRECXT 


1-109 


8-62 




















FREFRK 


1-50 


52-30 


52-31* 


















FREIOQ 


1-55 


52-11 




















FREMEM 


1-74 


10-158 




















FRESPD 


1-72 


8-66 




















FREUSR 


1-72 


8-55 




















FRKGEN 


1-50 


52-22 




















FRKGET 


1-107 


15-61 


1 5-70 


15-83 


24-61 














FRKINI 


1-50 


52-24 


52-31 


















FRKPRI 


1-97 


11-23 




















FSTDL 


1-58 


52-236 




















GETMEM 


1-93 


5-69 




















HANPAR 


1-110 


50-68 




















HF*7BT 


1-45 


41-40 




















HF*eBT 


1-45 


41-38 




















HF*LEN 


1-45 






















HF*ODD 


1-45 


41-46 




















HF*PAR 


1-45 


41-43 




















HF*RIE 


1-73 


1-86 


41-28 


52-137 
















HF*TIE 


1-73 


52-137 




















HF*TSB 


1-49 






















HLTCHR 


51-12 


51-16 


51-18 


51-39 


.51-59 


51- 


-63 


51-65 


51- 


-87# 


51-88 


HLTOCT 


50-35 


50-48 


50-78 


50-92 


50-114 


51- 


-30# 










HLTPRT 


50-30 


50-41 


50-46 


50-76 


50-90 


50- 


-94 


50-104 


50- 


-112 


51-7# 


HLTRAD 


50-97 


50-107 


51-54# 


















IB*IJ 


1-31 


6-83 




















IB*SF2 


1-31 


6-85 




















II**SZ 


1-40 


54-49 




















II*FLG 


1-40 


54-29* 




















II*NAM 


1-40 


54-22* 


54-23* 


54~24# 


54-25* 














II*NPV 


1-40 


54-33* 


54-39 


















II*PRV 


1-39 


54-34 




















ILSW2 


1-58 


5-98 


6-109 


10-98 


10-105 


28- 


-14 


29-29 


52- 


-222 


52-22i 


INBSY 


1-91 


18-63 


18-76 


















INISPD 


52-217 


53-6# 




















INITFL 


1-59 


52-250* 




















INITLN 


1-23 


S-23# 


52-229 


52-244 
















INRECV 


1-76 


47-13 




















INSINI 


52-154 


54-5# 




















INSTBL 


1-40 


54-10 


54-17 


















INSTBN 


1-40 


54-12 




















INTLVL 


1-53 


11-25 




















INTMXl 


1-48 


52-131 




















INTPRI 


1-59 
44-30 


7-10 
45-52 


9-27 
46-30 


10-187 
47-25 


24-58 


25- 


-16 


25-44 


34- 


"22 


39-26 



51-42 



51-67 



53-26 



40-30 



41-53 



43-28 
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INVEC 


1-76 


47-13 








lOHALT 


1-71 


8-45 








lOQSIZ 


1-55 


52-14 








lOSTOP 


1-71 










ITRMTP 


1-65 


6-110 








JCDB 


1-52 


8-108 


8-110 






JM**SZ 


1-96 


52-81 








JM*LNK 


1-85 


52-82* 


52-85* 






JOBCCB 


1-49 


9-46 


9-48 






JSTK 


1-68 


6-138 


7-9 






JSTKND 


1-68 


6-53* 








JSWLOC 


1-69 


7-52* 








KILJOB 


1-65 


30-58 








KMNBAS 


1-69 


7-47 


7-69 






KMNCHN 


1-70 


7-62 








KMNPGS 


1-75 


5-58 


5-60 






KMNSTK 


1-70 


7-78 








KMNSTR 


1-70 


7-88 








KMNTOP 


1-69 


7-46 


7-50 


7-68 




KMONCE 


1-46 


5-36 








KPAR6 


1-64 


6-35* 


26-70* 






LABTIM 


1-47 


10-107* 


28-19 


28-21* 




LACTIV 


1-62 


6-20* 








LAPS I Z 


1-63 


6-22* 








LBASE 


1-42 


10-156 


10-161* 






LBRKCH 


1-63 


6-26* 


8-21* 






LBRKCQ 


1-63 


6-25* 


8-84 


8-86* 


20-29 


LBSPRI 


1-75 


5-85* 








LCDTIM 


1-87 


5-100* 


30-31* 


30-41* 


30-71* 


LCDTYP 


1-56 


29-22 


30-14 


53-29 




LCLUNT 


1-90 


5-29 


29-27 






LCMPL 


1-72 


5-51* 


9-28 


19-38 




LCOL 


1-63 


6-21* 








LCONTM 


1-64 


6-30* 








LCPUHI 


1-63 


1-84 


6-28* 


15-19* 




LCPULO 


1-64 


1-84 


6-29* 


15-18* 




LCXPAR 


1-54 


6-35 








LCXTBL 


1-32 


10-112 








LDKMON 


6-142 


7-30 


7-37# 






LEMTPC 


1-99 


26-55 








LF 


1-117# 


3-27 


3-27 


51-17 




LF*IN 


1-79 


8-32 








LHIPCT 


1-76 


5-87* 








LINBUF 


1-61 


5-75 








LINCNT 


1-61 


5-80* 








LINCUR 


1-64 


6-31* 








LINNXT 


1-61 


5-76* 








LINPNT 


1-61 


5-78* 








LINSIZ 


1-56 


5-79 








LINSPC 


1-57 


5-79* 








LINSWT 


1-37 


10-70 








LIOCNT 


1-75 


5-50* 


9-20 


9-30 




LIOHLD 


1-52 


19-17 


1 9-22* 






LITIME 


1-66 


1-100 


5-88* 


17-51 


17-53* 


LJSW 


1-61 


6-11* 


7-38* 


7-39 


7-53* 


LMEMIN 


1-51 


5-65* 


10-160* 







20-40 20-42* 



17-76 22-23 25-28 27-20 
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LMINQ 1-89 18-29 18-31* 

LMXLN 1-60 35-18 36-15 37-17 38-32 39-18 40-15 41-27 42-15 43-19 44-15 45-26 

46-15 48-15 52-116 

LMXNUM 1-56 ^5-17 ?^~^^_ 37-16 38-33 39-17 40-14 41-26 42-14 43-18 44-14 45-25 

46-14 4a-14 -Dci-llU 

LMXPRM 1-109 34-13* 38-13* 41-16* 45-15* 53-22 

LNBLKS 1-42 5-49* 5-68* 10-157 10-159* 

LNMAP 1-42 10-68 10-100* 

LNPRIM 1-37 6-117 10-27 10-52 10-64 10-67 tO-85* 

LNSBLK 1-74 6-14* 

LNSPAC 1-31 10-175* 

LOFFTM 1-87 5-96* 10-97* 30-32* 30-62* 30-76 30-78* 

LOGCHR 1-79 8-35 8-36 

LOGCR 1-79 8-37 

LDGFLG 1-79 8-32 

LOGOFF 1-21 10-10# 

LOKINI 1-66 52-180 

LOTBUF 1-62 6-16 

LOTNXT 1-62 6-17* 

LOTPNT 1-62 6-18* 

LOTS I Z 1-36 6-19 10-32 

LOTSPC 1-36 6-19* 10-32 

LP*7BT 1-43 38-17 41-36 45-35 

LP*ODD 1 43 38-25 41 44 4D-43 

LP*PAR 1-43 38-22 41-41 45-40 

LP*SPD 1-43 38-15 41-21 45-20 

LPARNT 1-38 10-148 10-150* 10-174* 

LPRGl 1-80 20-18 

LPRG2 1-80 20-20 

LPRI 1-75 5-86* 17-22 25-32 

LPROG 1-63 6-23* 6-121 6-121* 

LPROJ 1-63 5-89* 6-81 6-93* 6-120 6-120* 

LQUAN 1-61 1-70 6-10* 7-83* 17-16* 17-21 17-44* 17-61 17-106* 

LRDTIM 1-71 8-19* 21-13 21-15* 

LRTCHR 1-82 21-18 

LSCCA 1-63 6-24* 8-20* 

LSECPT 1-37 10-55 10-77 10-119 
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2-37# 


7-8 


7-74 


11-46 


18-137 
















DISABL 


2-2 1# 
47-22 


9-19 


24-14 


25-12 


34-17 


39-22 


40-16 


41-50 


43-24 


44-20 


45-49 


46-20 


ENABL 


2-27# 
44-30 


7-10 

45-52 


9-27 
46-30 


10-187 
47-25 


24-58 


25-16 


25-44 


34-22 


39-26 


40-30 


41-53 


43-28 


OCALL 


2-ll# 


8-35 


8-36 


8-37 


S-49 


8-55 


8-62 


8-66 


8-70 


8-74 


8-80 


8-1 IS 




10-70 


10-137 


10-143 


21-19 


30-58 


52-168 


52-174 


52-186 
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52-204 






SATXT 


2-47# 
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3-10 


3-11 


3-12 


3-13 
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3-16 




3-17 
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3-22 
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